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PROCESSING 
NIT: LXt 
MYI 
XFA 
INIT?: MOV 


Sixteen 0% MOP’s. 


This space can be used for initialization 
routines or I/O patches. 
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SF 
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AGRE 
22E8 
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2@?@ co 
C2CEGS 
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PAGE 2 
. | 
3 TEIS IS TEE STARTING FOINT OF THEE SELF CONTAINED 
; SYSTEM ONCE TEE SYSTEM HAS BEEN INITIALIZZI. COMMANLS 
3; ARE RFAD FROM THE USER. SXECUTEP. AND CONTROL RETURNS 
; BACK TO TEIS POINT TO PEAL ANOTEER COMMANT 
| 
Boe: UXT | SP AREA-182 | 
CALL CRLF - jPRINT CR LF 7 
NOP ;PQOMPT WAS EERE IN 2EY Z 
NCP ;.. NOPS INSERTED. 
NOP >. TO MATCH EXISTING 
NOP ;.. PROMS. FEMOVE #HEN 
NCP ;. A WEOLE NEW EPROM MASTER NEEIEL 
CALL READ SPEAD INPUT LINE 
IkX z | 
“MCV AM FETCH FIRST CHARACTER 
CPT ‘9°41 $COMMAND OR LINE NUMEPR? 
Je LINE JUMP IF LINS FOR FILE 
CALL VALC SGET COMMANT VALUES 
CALL COMM ;CFECH LFGAL COMMANTIS 
JMP EGR | 
? 
; TEIS ROUTINE READS IN A LINE FROM, TEE TTY ANT FLAaczs 
; IT IN AN INPUT BUFFER. 
; TET FOLLOWING AFE SFECIAL CHARACTTES 
; CP ‘TUCMINATPS FRAD ROUTINE 
; F NOT RECOGNIZED RY RCUTINE 
;  CT?L-x DELETE CUPRENT LINE 
DEL DELETE CEAPACTE2 : 
> ALL DISTLAYAELE CESEACTERS BETWEIN ELANZ & Z AND TER 
> AFOVS ARE PECOCNIZED BY TEF RTAD ROUTINE 4LL OTHERS 
; ABE S¥YIPPED OVER. THE SOUTINE WILL NCT ACCEPT MCRE 
; CEARACTE2S THAN THF INEU™ BUFFER WILL EOLD. 
, 
FEAD:  LXI H IQ0F $5GET INPUT BUFFER ALIRESS 
SPELT ADDS ;SAVE ADDRESS 
“VT E,2 SINITIALIZ® CHARACTER COUN 
NEYT: CALL IN jREA A LEME ahas Stee 
MCV Ay3 Ger | 444 
CRI 26 SCEECX FOR cTaL ¥, Thea tenants daladac 
J2 7OR 
CPt ASCR SSET AN ASCII C2 
~ JNZ pene - 
- MOV A pL | 
~ {BI ‘IBUF ANT @PTH $CEECK FOR FIRST CHA 
J2 TOR | 
MYT M ASCR ;PLACE CR AT ENT OF LIDE 
INX z | 
MvI ae ;TLACE ECF INITICATCR IN LIN= 
INE a 
MVI A IBUF4#8Z 4D @FTE 
CALL CLER CLEAR REMAINING EUFTER 
TXT E IBUF-1 
MOV 2. ;SAVE CHARACTEP CCUNT : 
wet ee jrach 
Ceti CPI yee Xs SCHECK FOP LELETE CHARACTEF Tio Compare | 
INZ CHAR | 


Ay TEU AND 23 Tk 


aoBe ED CMP L ;IS THIS 1ST CZARACTER 
22BO Cagle? JZ NEXT 
@aPc 2E - < nF Op 4 H ;TECREMENT PCINTES 
Q@@BD 1D DcR z sDFCREMENT COUNT 
@2@Re C6SF BSFA: = MVI B)SFE 
@oc@ CDAEZ1 CALL outs 
gOrz czaLnae : IME N2XT | 
@2@cé FE2a CHAR: CPI +8 ;CEECK FOR LEGAL CHARACTER 
gecs D2D000 INC CTAR1 j JUMP IF NOT CONTROL CFAR 
@@cR FE?O CEI COR ;sIS IT A TAB? 
@ACD c2epae INZ NEXT SIGNORE IF NCT 
220 FESB CFARL: CFI °Z +1 
eere T2eree INC NEXT 
Ore 47 MOV F,A 
CONE CDCED1 CALL OUTS ;ECFO CHARACT=R 
@ereo 72 MOV M,B 
QQ@™4 317 | MvI A,IBUF+@1 AND OFFER 
eerc BD CMP L SCEEICK TCR IND OF LINE 
9O2D CAFFOO Iz BSPA 
Pete 22 INX A 
@@E1 1C INR 3 ;INCREMENT CHARACTES CCUNT 
Q@ZF2 CIEDGA JMP NEXT 
’ 
; 
, 
; TRIS POUTINE IS USED TO BLANE CYT & PORTICN OF tENCRY 
9 ; ' 
@@°S5 BD CLER: CMP L 
@@EE CA PZ 
Q2E7 3E22 MVI M. ° $PLACE EBLANT IN MEMCET 
Q@ZES 23 INX R 
@OFA CRSA JMP CLEF 
’ ; 
; SEE IF TTY INFUT READY AND CRECK FOR STEL X. 
; RETURN WITH ZERO SET ITF CTRL-X STEN. 
@@ET [3a NY. IN TTS’. ;GET TTY STATUS CB B+ Az cath Ba A 
 O@EF 2F CMA SINVEPT STATUS | bP 
—e@era KEeq2 ANI TTYDA 31S DATA AVAILABLE? Fe 18 
2272 CB | RNZ RETURN IF NCT aq 
@OFZ CDFOCe CALL ING ;GET THE CHAE bb +4 
ere FES CFI ‘X-408H 3;IS IT A CTRL-X7 "FE Mf 
@ZFR CO RET | eg 
; TRIS ROUTINE RFADS 4A BYTT OF DATA FROM THE CUSART | 
’ . R igre) 2 ae o> ae A 
/ GBF DEGS Ine: IN "TS SREAD USART STATUS cd Be #7 chit BF A 
\ qeru EEC2 ANI TTYLA : CA PF On -J2 a¥ 
} @OFD CAFoee J7 Ine 26 TE ton he 
‘\\ @18@ DP@2 . IN TTI SRFAD DATA a 
0122 E67P - ANT [FE SSTPIP CFF PAPITY~ — tov fs A 
@194 47 | MOY B, A a Ce £58) of _ Swe? a . [2.1 . 
’ ome 
| TSIS RONTINE OUTPUTS A PY" OF DATA TC THE USAaT? # 
g _ - 
—@176 78 OUTa: MCY A 3 SGET CHAR IN A 
0107 DEOD SOI 2DE SIS IT A CR? 


wt 


2129 


B19C 


7128 
giil 
Gil2 
C114 
2117 
@11A 
@11¢ 
G11F 
7120 
212i 
@122 
@127 
2125 
7128 
@12R 
Z12C 
12° 


}¢131 
£@122 
| @1z€ 


137 


€129 


@1SA 
@13C 
C1eF 
@141 
8144 
@14E 
2149 


914C 
@14F 
8152 
Giss 


@15€ 
@159 
G1=% 
Z1SE 
@1El 
C1E4 


ys PAGE 4 
ue 
CA2C@1 JZ QUTS1 RESET LINE FOSITION IF $0 
CE6G4-°0° ADI  @DE-@au s;was IT A TAE? 
C221¢1 -INZ erTez SCOMINCE IF KO? 
cs | ;SAVE TAB CHAF 
E28 ‘OUTPUT A SEECE . 
cr2ee1 cure, oe 7 oe 
ZALO1L SGET CURRENT LINE PCSITICN 
réa? sIS IT A TAB STOP? 
C214@1 SCUTPUT ANCTHER SPACE IF NCT 
ee SPESTORE TAE CEAS 
ce rT 
7G cutez- MC SGET CEAP IN A . 
ZC ik A SIS IT A NON-FRINTING CHAR? 
TF21 CPT e431 , 
DA2Fe1 Ic OUTED?  ;DON’T EUMP LINE PCSITION IF SG 
ZA1911 OUTS2: TDA LEOS ;RUME LINZ POSITION. 
zc LNP A 
321911 CUTE1: STA LPOCs ; 2 . 
D2ez cUTS@-: IN 7TS SpEar statcs ¢3 8A 0? eo eo 
ree ANI TTYTE | pe oor 
CAZF21 S72 orTadg Db we PI po 
76 MCV A.B | 7 As 
D292 CUT TTO STRPANSMIT DATA pS Ov Gp oF 
cS RET CH. 2G 
9 
> TFIS POUTINE WILL OUT°UT A CAPRIAGE RETURN AND 
; LINE FEED FCLLCYED 3% TwO [FLETE CHAEACTETS whICi 
; PROVIDE TIME FOP POINT BEAD TO RETUPN : 
y 
eer CELT: MYVI 3 12 SCE 
CI76G1 | CALL OuTEe 
GEZA LF Mv 3,190 -ES 
CIZée21 ios be OyTS 
gerr MUI B 26s 
CDVEZ1 CALL ‘ouTS 
CE7ES1 “IMP outa 
; THIS ROUTINE JIMES TO A LOCATION IN MEMORY CIVEN BY 
; THE INPUT COMMAND AND PEGINS ZFXECUTION CF =RCGRAM 
>; TEERE | 
3 ; : : 
OD279a PXEC CALL VCEX sCFECZ FOR PARAMEMER 
CIZAGt CALL CRLF 
2ASA12 LELD FRUF SFETCE ADDEESS 
EQ PCRL ;JU“F TO FROGRA” 
co 
; TETS ROUTINE CHECKS TSE INPUT COMMAND AGAINST ALL 
; LEGAL COMMANDS STORED IN A TABLE. IF A LEGAL COMMANE 
; IS FOUND, A JUMP IS MADE 7C TEAT ROUTIN OTETRWISE 
* AN ERROR MESSAGF I$ QUTEUT TO THE USER. | 
y 2 
11£492 COMM: Lx! D,CTAE sCOMMAND TAELZ ADDRESS 
ZEA VY A’4 sLENGTE CF COMMANE 
729510 . STA NCEE 1S: 72 
CDES21 CALL | coms :SEAECH TAELE | 
C2P184 © INZ - Wat sJUME IF ILLEGAL COMMAND 
BS PrEL ;BE EERE NOW 


ou 


@1ES 
@1E8 
S1E9 
G1EA 
G1ED 
217 
2171 
C174 
g175 
@176 
G17? 
@178 
8179 
@17A 
@1728 
G17E 
G17F 


2A7412 
1A 
ec 
CA7EC1 
ZAOS1B 


C3ESA1 
SC 
cS 


IS EQUAL TO ANY OF 
POINTED TOC BY D,&. 
CF CEARS 
WITH IT. 


OR SYMECL TAFLE. 
A MATCH WAS FOUNT; 


PCINT TC THE N 


we we Se we WS We WH CTH WE 2S We we 


CoMS: LELD  ADES ;FETCH COMPARE ALDEESS 
LIax ;GET NEXT BYTE 
INR A SIS IT -17 
7 COMS1 ABORT IF SO 
UDA NCER SCET LENGTE CF STRING 
MOV CA 
CALL SEAR [COMPARE STRINGS 
LMAX OD STETCH VALUE 
MOV ae 
INX D 
LDAX ;FETCE VALUT 
MOT HA | 
22 | 
INX D SSET TO NEXT STRING 
IMP COMS) 
CoMSi: INS A SCLEAP ZERO FLAG 
RIT 
TEIS ROUTINE CRECKS 70 SEE IF TWO CHARACTES STRINGS IP 
MEMCEY ARF EQUAL. THE STRINGS AFZ PCINTEL TC =Y L 
AND E,L. ON 2ETCRN. THE 7570 FLAG SET INDICATES A 
MATCH. REG C INLICATES THE LENGTH OF THE STRINGS ON 


PETOURN. 


UC) we we wo we we we we we 


THIS ROUTINE CHECKS TO SEF IF 4 
THE STRINGS CONTAINEL IN A TABLE 
TEE TABLE CONSISTS OF ANY NUMBSR 
WITH 2 BYTES CONTAINING VALUES sss 
THE END OF TEP TAELE IS MARXED WITH A ~1. 
THIS ROUTINE CAN BE USED TC SEARCE THROUGH A COVMANE 
ON BFTUEN , 
IF NOT, NO MATCH ¥AS FOUML. IF 
A MATCE WAS FOUND D,E POINT TO THE LAST BYTE 
ASSOCIATED WITP THE CHARACTER STRING 
EXT LCCATICN AFTER TEE 


PAGE 5 
FASE CEARACTER STRING 


CCIATEL 


IF TPF ZERC FLAG IS SET 


Iz VOT DzE 
END OF TEE TASLe. 


THE POINTE?S POINT TC TPE NEXT ADDRESS AFTER 
TRE CHARACTER STRINGS. 


FAR: LDAX D sFETCE CEAPACTE? 
CNY M sCOMFAR® CEARACTERS 
JNZ INCA 
INX B 
INX r 
DCR C »DECREMENT CEAPACTER COUNT 
JNZ SEAR 
EET 
INCA: INX D 
TCR C 
JNZ INCA 
Ihe ¢ yCLEAP ZERC FLAG 
RET 
; TEIS ROUTINE ZEROES OUT A BUFFER Ih MEMORY wHICE IS 
3; TEEN USED BY OTEEP SCANNING ROUTINES 
bf 
cer: RA A 3 GET A ZERO 
LXI D ABUTS12 *POSFER ADIRESS 
MvI a ile SUPPER LebhGts 
ZPU1: SDECE EMENT AEEECS® 


[cx t 


G19A 
C198 
g1ac 
g19° 


C1AG 
@1se 


G1AE 


CTA?7e1 
DAS124 
co 


212028 
228019 
2e7El¢ 
CDSSA1 
eLCsig 
23 

7 
PYLE 
oF 

DS 
C2BEG1 
229E18 
CDI9G9 


1i7E12 


re 
117E1¢ 


aaj we we we we we 


ALC 


fej we we we we woe we we we 


TRA: 


VALt: 


TAL2: 


VALS: 
VAL4: 


LON: 


VaLS* 


THEM IN 


CALL 
Jc 
RET 


HIS RCUTINE 
COMMAND FROM 


ASCII BUFFER 


LXI 
SRL 
SELL 
CALL 
XI 


INX 


MOV 
CPI 
CMC. 
FNC 
INZ 
SELD 
CALL 
CMC 
RNC 
CPI 
JNZ 


ETRA 
WHAT 


EXITS ACTS. TAF 
TAs INPUT 
APUF. 


E 2 


PAGE & 


TEIS ROUTINE CALLS ETPA TO OBTAIN TEE INPUT PARAMETER 
VALUES AND CALLS AN ERROR ROUTINE IF 4£N ERROR OCCURKED 
I’ TEAT ROUTINE 


ALUES ASSOCIATED WITE 4&4 
STREAM AND PLACES TEZ™M IN TEE 


IT ALSC CALLE A ROUTINE TC 

CONVEPT TEE ASCII EEXALECIMALS TO EINAnT AMD STORES 
THE BINARY SUTTER 
SET INDICATES AN EFPOR IN INPUT CARAMETERS . 


BBUS CN PSTURN CARRY 


;GET A ZERO 
;ZERO VALUE 
;SET NO FILE NAME 
;ZERO BUFFER 


jFETCE INPUT CEARACTER 
sLOOX FOR FIRST CaARACTER 
RETUSN IF NO CAPRY 

JUMP IF NO ELACE 

SAVE POINTER 

SCAK TO FIRST FARA‘ ESTER 


sRETURN Ir CR 
»NO FILE NAME 
;NAME FOLLOWS FUT IN FBUF 


9GET AN ASCII SrAck 


sFILL IN WITH SFACZS 


@1F4 
@1F? 
@iFa 
@1FA 
@1FB 
@1iFc 
Ci¥rr 
S202 
S203 
G@296 
22289 
878C 
O20F 
@21¢ 
8211 
@214 
@217 
92123 
@218 
9218 
Z21C 
@21F 
C222 
8223 
G226 
G229 
G22C 
G22D 


@22E 
@231 
G22 
8233 
@234 
@Zzes 
G23E 
@237 
9228 
G239 
@25A 
G2EC 
G23 
@22F 


@24g 5 


0241 
G243 
C244 
8245 


CDOAGB 
78 
FE@S 
ey 


D8 


@17E12 


CD4A8Ge 
De 
228A12 
217E1@ 
CIESS 
CDSEO 
SF 

14 
118219 
CIOAGB 
78 
FE@5 
CF 

D8 
219212 
CD4AA2 
de 
2260190 
218210 
CDEZGE 
B7 

cg 


212290 
OA 


CE31982 


We WO We we we WE 


“wee wo we we WO 


B ABUF-4 


ATEX 
BBUT-2 


E.ABUF-+4 


NORM 
A 
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>PLACE FARAMETER 
sGET DIGIT CCUNT 
>CHECK NUMBER OF 


IN SUFFER 
DISITS 
sFETURN IF TCO MANY DIGITS 
+CONVERT VALUE 

,TLLEGAL CHARACTER 

»SAVE IN SINASY BUrFER 


;NORMALIZE ASCII VALUZ 
;SCAN TO NEXT PARAMETER 
SRETURN IF CR 

PLACE FARAMETER IN BUFFUP 
GE” DIGIT COUNT 

;CHECK NUMBER OF DICITS 


° 
y 
° 
’ 


sPETURN IF TCO MAKY DIGITS 


;CONVERT VALUE 
sILLSGAL VALCE 
;SAVE IN SINAFY BUFFER 


SNORMALIZE ASCII VALUE 
SCLEAR CARFY 


TEIS ROUTINE FETCHES DIGITS FROM TEE SUFFIF AILRESSEL 
BY B,C AND CONVERTS THE ASCII DECIMAL DIGITS INTC 


BINARY. 


SCAN STOPS WHEN A 


LXI 
LDAX 
ORA 
RZ 
“OV 
MOV 
DAD 
TAD 


UP TO A 16-BIT VAIUE CaN EE CONVanTFD 
EINARY ZERO IS FOUND IN 


-mP BROMO Pw 
tt fy Q 


Qo 


EA 
cr 2 
D 

B 
ADEL 


BY BC AND CONVERTS 


BINARY. 


TES 
THE EUPFER 


xGEP A LE FIT ZFEO 
;FETCE ASCII DIGIT 
,OET ZERO FLAG 

+RETORN IFF FINISHED 
;SAVE CURRENT VALUE 
;SAVE CURRENT VALUE 
sTIMES TYO 

sTIMES TWO 

;ADD IN CRIGINAL VALTS 
sTIMES TWO 

;ASCII BIAS 

;CHECK FOR LEGAL VALUE 


SRETURN IF FRROR 


‘ADD IN NEXT DIGIT 
s INCREMENT PCINTER 


.THIS ROUTINE FETCHES [TIGITS FROM THE SUFFER AILTFESSEL 
TEE ASCII HEXADECIMAL 
UP TO A 1€-BIT VALUE CAN 25 CONVzFTEL 


rIGITS INTO 
Tah 


@242 
G24E 
824C 
9240 
G24E 
G24r 
A252 
8251 
G2ce 
B2E5 
C257 
C253 
@2E9 
A254 
@75R 
@25C 


@2SF 
G2E1 
G2EZ 
@264 
S26E 


B27E 


B279 
8273 


@27E 
@2651 
G284 
G2a5 
8286 


2128¢R 


CLACC2 


A 217410 


4€ 
CIZEC1 
23 


46 
753 C2CEA1 


CDETZ2 


GE2B 
C2CEC1 


crce¢e2 
CDEAM2 
25 
4€ 
CESEG1 


; SCAN STOPS WEEN A BINARY ZFPO IS FOUND IN THE BUFFER. 
| 
AREY LI E@ ;GET A 16 BIT ZFRO 
APE1:  Lpax 2B ;FETCH ASCII DIGIT 
_—_ ORA A SSET ZERO FLAG 

RZ ;PETURN IF LONE 

. DAL q SLEPT SHIFT 
Dad a ;LEFT SHIFT 

TAT z ;LEFT SEI 

DAD a SLEFT SEIFT 

CALL ABS1 SCONVERT TO ZINAFY 

CPI 198 ;CHFCX FOR LEGAL VALUE 

CMC 

RC ;PETURN IF ERROR 

ADD Le . 

MOV Lea 

INX B SINCREMENT PCINTES 

IMP ATEL | 
, 
; TEIS SURROUTINE CONVERTS ASCII EEX DIGITS INTO EINARY 
} | 
AES1: SUI 48 ;ASCII BIAS 

CPI 12 ;LIGIT O-1¢ 

RC | 

SUI 7 SALPHA BIAS 

RET | 


TEIS ROUTINE CONVEPTS A BINARY VALTE TO ASCII 
EEXADECIMAL AND OUTFUTS THE CEARACTERS TC THE TTY. 


THQ we woe we wo we 


CALL BINE 


OUT SCONVERT VALUE 
LXI HH ECON $CONVERSION ATES 
CROT: MOY BM ;FETCH OUTEUT CHAFACTES 
CALL CUTS SOUTPUT CHARACTEF 
INX F 
MCY BM ;PETCE CHARACTER 
IMP SCUTFUT CEAPACTEF AND RETURN 


TFIS ROUTINE DOES THE SA“? AS 
PLANX ATER THE LAST CHAPACTER 


AZOV:z SUT OUCTTUTS A 


OTE: CALL ACUT ECONTERS ANT OUTPUT 


THIS oe OUTPUTS A BLANK. 


tx we we ~oo FX] we ~~ we we 


Le: [GET A BLANE 


SOUTFUT IT AND RETURN 
TEIS ROUTINE CONVE2™S A RINARY VALNE TO ASCII 


r-J we woe we we 


TECIVAL DISITS AND OUTPUTS TEE CHARACTERS TO THE TTY 
OUT: CALL BIND SCONVERT VALE | 

CALL HOUT 2 ;OUTPUT VALUE Z LIGiTS 

INX F 

MOV 3M ;GET LAST DIGIT « 

JME ouTE SCUTPUT AND RETURN 


FAGF ¢ 


THIS ROUTING IS USED BY OTHER ROUTINES TC INCREMENT 
THE STARTING ADDRESS IN A COMMAND AND COMPARE IT WITE 
TRE FINAL ADDRESS IN THF COMMAND. ON RETURN THE 
CARRY FLAG SET INDICATES THAT TEF FINAL ADDRESS EAS 
BEEN REACHED. 


fm we we we we we we 


G@2E9 2ABA1O CHts LHLIT BBUF »FETCEH STAcT ADDRESS 


@2ac saed1ig LDA BEUF-S ;STOP ADRESS HIGH 

@2aFr BC CMP H sCOMPARE ATTPRESSES 

G@29G C2L29BG2 JNZ ACH1 | 

292 SARC1IE LDA BBUF-2 ;STOP ADDEESS Low. 

@296 PD CMP L ,COMPARE ATLIRESSES 

C297 C29RG2 JNZ ACH1 

@29A 87 STC 3 SET CAFRY IF EQUAL 

@29F 23 ACHi: INE. e sINCREMENT START ADDRESS 
@29C 228A18 SriD BBUF sSTCRE START ADLIRESS 
@2SF C9 RET 


THIS ECUTINE OUTPUTS CHARACTERS CF A STRING 
UNTIL A CARRIAGE RETURN IS FCUND. 


UC) we we we we ws 


G2AG 46 CRN: MOV BM ,FETCH CHARACTER 
@241 SECD aint AIS ;CATRIAGE RETURN 
@2Az BS CMP =o ,CRARACTZR = CE? 
O@2Ak4 C8 RZ 

@2A5 CD@EG1 CALL OUTS sOUTPUT CHARACTER 
92k Ze IN H sINCREMENT ALIRESS 
92489 CSAGG2 JMP SCRN 


TPIS ROUTINE CONVERTS TRE EINAPY VALE IN REG & INTO 
ASCII HEXADECIMAL CIGITS ANT STORES THEY IN VEMORY 


Ud wa we ee we we 


@2AC 217410 INE: LXI E,HCON ;CONVERSION 
@OAv 47 MCV 3A ;SATZ VALUE 
@220 iF RAR | 
@281 1F RAR 

@232 1F RAP 

@2Re 1F RAR 

@2R4 CDPFO2 CALL BIN1L 

Q@2P7 79 MCV M oA 

G2B8 2¢ INX H 

@2B9 78 MCV A 3 

@2ZEBA CDEFG2 CALL BIN1 ;CONVERT TO ASCII 
@23D 77 MOV M.A 

Z2PRE C9 RST 


TEIS ROUTINE CONVERTS A VALUE TO REXADECI™AL 


tr wou wo we 


@2RF FEOF Geis ANI Q¥E sLOW 4 BITS 

@2C1 CéZ AT! 49 sCONVERT TOC ASCII 
G2C3 FESA CFI a ;DIGIT O-9 

@2C5 DE RC | 

@2CE C&87 ATT 7 PMOLIEY 208 ASS 


@2C8 C9 RET 


se oe 


g2C9 
g2cc 
G2CE 
G2T1 
G23 
@2TE 
8208 
@2T9 


O2DA 
@20C 
Gere 
G20r 
G2z1 
@2E2 

G2ES 


C24 
G2E8 
OOEA 
G2FE 
Gere 
Gora 
@2¥E 
@2Fa 
B2rC 
GEOD 
23C2 
B3A6 
8308 
B=EGC 
ORY B 2 


@z12 


fFz14 
9718 
CS1A 
GE1E 
ZEI28 
BS24 
G52E 


GS27 
OS2A 
@522 
O32" 


217412 
0664 
CDLAG2 
OEGA 
CDDAG2 
C632 
27 

ce 


D2Dcz2 
Re 
23 
cg 


44554156 
2EOz 
45584542 
4CA1 
45455452 
OTe4 
46494C45 
65¢x% 
40495554 
FEOS 
44454054 
2TZeé 
4162534) 
84GE 
39414745 
4083 
43555 ters 
2822 
42524542 
F5eC 
SOS24F42 
A¥F@D 
FF 


ZAVELZ 
RY 
CA8104 
C9 


yf we we we 


CQ ee we we 


aj wo we we we 


we see We 


TEIS RONTINE CONVERTS TEE BINARY VALUE 


FAGE 1¢ 


IN REG A INTC 


ASCII DECIMAL PIGITS AND STORES THEY IN MEMCRY 


TEIS ROUTINE CHECKS IF ANY FAPRAMETEPS WERE ENTERED 
sUz 


IND: LXI H. ECON 
MVE E180 
CALL BID1 
MVI B 1g 
CALL EIDt 
ALT “@’ 
MOT M.A 
RET | 
TEIS RONTINE CONVEPTS 
D1 MVI M. @’-1 
INR u 
SUB B 
INC BITI 2 
ar B 
INX H 
RFT 
LEGAL COMMANT TA®L= 
TAB: DE -“TUMP’ 
DW DUMP 
D3 “EXEC” 
CW EXEC 
DE “ENTR“ 
ry ENTR 
DP ‘PILE’ 
DY FILE 
TB ‘LST 
DW LIST 
TE ‘DELT’ 
Dy DELL 
DE assy’ 
Tw ASSM 
D “PAGE” 
DW FAGE 
TB CUST’ 
DY 268GE 
p32 *BREK “ 
DW BERAT 
D3 PROC’ 
Ty PROC 
D2 OFFE 
WITE THE COMMAND 
CEZ: LDA ABUF 
ORA A 
a7 WHAT 
RET 
TEIS ROUTINE DUMES 


IF NOT AN ZRROR *E 


>CONVERSION ADDHESS 


;CONVERT EUNDRELS DIGIT 
sCONVERT TENS DIGIT 


>GET UNITS DIGIT 
+STCRE IN MEMORY 


A VALUE TC DECIMAL 


SINITIALIZE LISIT CCUNT. 
SCEFCY LIGIT 


RESTORE V&Ltz 


STUME COMMANT 

;COMMAND ADDRESS 
SEXECUTE COMMAND 
;CCMMANDT ALIRESS 


SENTER COMMAND | —. 
Alpe 
;PILF COMMAND AY 
SCOMMAND ADDRES 56?" a 
sLIST CCMMANT ae 
SCOMMAND ADDRESS oe 
;DELETE COMMAND 2 ee 
;COMMANT ALTRESS 6° AP 
;ASSEMBLE COMMAND ge Pa 
SCOMMANDT ALITEESS rs 
PAGE TRANSFER COMMAND fut? 
{COMMAND ADDRESS aes 
CUSTOMER COMMANI opt 
S COMMAND ADDFEESS 
sBREAZPOINT COMMAKL 


SCOMMAND ADDRESS 
S$PROCEED COMMAND 
SCOMMANDT AITRESS 


SSAGE IS IS 


;FETCE FARAMETER BYTE 
sO8T FLAGS 
sNO FARAMSTEP 


OUT THE CONTENTS OF “E.MORY FROM 


FAGE 11 
TEF STAPT TO FINAL ADDRESSES GIVEN IN THE COMMAND. 
BS2F CD27@S DUMP: CALL VCHK ;CHECK FCE FAPANETE?S 


222 CDZAG1 Dues CALL CRLF ;START NEw LINE 
@355 2AGAlA TUM LELI BBUF sPETCE MEMORY ATTRESS 


8328 7E MOV A,™ 

@339 CL7EG2 CALL FOTS ;OUTEFUT VALUE 

@3Sc cDEesee CALL ACEK ;CHECK ALIRESS 

@ESF D8 RC sRETURN IF FINISHED 
G24 ?7T MOV AL 9IS NEXT ALDTR&SS 
Q@341 TECF ANT OFH y DIVISIELE BY 1€% 
1343 C2757 JNZ DUM1 

G34E C2E283 JMP CUMS 


TEIS ROUTINE WILL MOVE 256 BYTES FROM 1 


ST ADDEESS 
GIVEN IN COMMAND TO 2ND ADDPESS IN CO’MAN 


ry we wees We we 


O249 CDL722 AGE: CALL Vers ;CHECX FOR PARAMETER 
CS4C FAE212 LDA ABUF-4 j;FETCH 2NT PARAMETER 
G34F RV ORA A sDOES 2ND PARAMETER 2XIST? 
OS52 CA8184 JZ WHAT 

G3ES ZAPATA LELI BBUY sFETCE MOVE TO ALTASSS 
GS565 EB XC EG 

@257 2A8C12 LELD PEUF+2 ;FETCE “OVE TC AITRESS 
G@ES5A GEQD MVI ae sSET COUNTEP 

@35C 1A PAG: LDAX D 

@Z5D 77 MOV M.A 

@S5E 23 INX H 

@25F 12 INE t 

G83ES OS DCR be ;DECREMENT CCUNT 

@SE1L C2SCE3 JNZ PAG1 

@SE4 CO RET 


TSIS ROUTINE INITIALIZES THE EEGINNING OF FILE ADDRESS 
ANT END OF FILE ADDFESS AS WELL AS THE FILE Anck 
WEEN TEE FILE COMMANTD [S USED : 


woo bef wo we we we we we we 


@zE5 CIZAG1 ILE: CALL CRLF 
CHECK FOR FILE PARAMETERS 
@ZEQ SA7TE1D LDA FRUF 
ZEB B? CRA A 
B36C CAEGS3 Jz FOUT ;NO - GO LIST 
OZEF CD3Fe4 CALL PSEA ;LOOK UP FILF 
272 EB XCEG ;PNTR IN LE rn 
273 C2Z8AG3 INZ SEST we 
; NO ENTRY | | 
@Z7E ZA7E1G LIA ABUF ;CHECK FOR PARAM ek 
@279 3B7 ORA A on 
QZ7A CAL4E4 ‘JZ WHA1 3;NO?? - ERRCP 7 x 
> CEFCK FOR ROOM IN DIPECTORY _@? ge, 72 
@37D SA7D12 LDA FEF cae che 7 
gzaga 2? ORA At ‘ ZB 
@381 C29F9s INZ ROOM : é 
@284 219204 LAL R EMES1 | fy 


O287 CZE7Z4 IMP MESS ne od 


ZSLA 
838d 
CSeE 
G39 

Ot94 


8395 B 


B596 
2399 
ZS9C 


CIS? 


SATEL? 
B7 
CA322% 
2AGA1G 
7C 


= 
CAP293 
219774 


C2794 


247819 


ASAL EEF 


GSAS 
SIAE 
G2A7 


@ZAQ° 


OSAA 
SSAB 
@EAC 
@SAD 
OZAE 


@SB1 D 


@3B2 
OSES 
CIB? 
@SFe 
GSB 
ZIBA 
OSPR 
OSBC 
2SBC 
@SPE 
GI3BF 


S2C2 
BSCS 
@SCé 


SzC9 
@Scc 
GSCF 
GET2 
ASD 

@Sd04 
@2T7 
GED9 
@3DA 
G2IL 
BSEO 
@3EZ 
OSES 
OSE? 
@SEA 


GSEC 
OSEF 


2c | 
C2ZA983 
1 


212419 
SED 
14 
46 
77 
72 
12 
12 
3 
@D 
C2E702 


SATELO 
B? 
CAEFAGZ 


2ABA1E 
222912 
2223128 
(ex 

R4 
CADS8S 
E01 
AF 
322D12 
CSEAGS 
SACALD 
FESS 
CECE 
CAECOS 
Q¥O1 


212419 
79 


; ENTRY FOUND APT THESE 


PAPAMETERS 
TEST: LIA ABUT 
ORA A 
JZ SWAFS 
LELD BBUF 
MOV 4,8 
ORA L | 
Z SWAPS | | 
EXT. H.EMES2 ;NO-NO CANT DO 
: JMP MESS ;IT - TELETE FIRST 
; MOVS FILE NAME TO ELOCK PCINTED TO EY FREAD 
ROOM: LELI FREAT 
XCEG | 
LXI H.FBUF ;FILF NAME FOINTER IN 
PUSH i 
MVI C.NMLEN ;NAME LENGTE COUNT 
MCV23- MOV eo 
STAX D 
INX D 
[CR c STEST CCUNT 
INX FE | 
JNZ MOv23 , 
POP r ;RESTCRE ENTFY PCINT=P 
; MAKE FILE POINTED TO BY D.E CURRENT 
SWAPS: LYXI RE. FILE? 
| MTT C.FELFN ;3NTRY LENGTE 
SWAP:  LDAX OD 
MOT BLM 
MOY M.A ;EXCEANGE 
MOV a3 : 
STAX r 
INX > 7 
INEZ F ;RUMF POINTERS 
DCR C ;TEST COUNT 
| INZ SWAP 
3; CRECY FOR 2ND FARAMIFTED 
LDA. AZUF 
ORA A 
| JZ FOOT  3NOQ SECOND PARA’ ETEE 
; PROCESS ND PARAMETER 
Lage BBUF = j;CET ADDRESS 
SHLI BOFP ;SET BEGIN 
SELD EOFP ;SET END 
MOV AE ;IS ADDRESS ZERO? 
ORA 34 
JZ FILSS ;Y5s 
FIL7@: MVI- M1 ;NON-ZERO - SET EOF 
FILZE- XPA A AND MAX LINE # 
STA MAXL 
JMP ECOT OUTPUT PARAMETEFS 
FOUT: LDA IFUF+4 
CFI So ;IS CCMMAND FILZS? 
MVI C.MAXFIL 
JZ FOUL 
FOOT: MVI C 
; OUTPUT THE # CF ENTRIES IN C 
FOUL: ILXI E.FILE2 
MCV A.C 


ad 


i 


PAGE 


L 


B2F9 S27T1¢2 FIN: STA FOCNT sSAVE COUNT 
@EFS EE PUSE = 
GSF4 119590 LXI D,NMLEN 
Q@3F7 19 DAD D 
O2FE VE MOV A.M 
G5FSo EB OFA A 
@3FA C2CAC4 INZ Foor sNON ZERO OK TC OUTPUT 
@2FD 23 INX E 
Q@3FE eé ADD he 
@S¥FF 23 INX E 
402 C2CAG4 JINZ FOOL 
@425 32 INX SP 
0404 3S INE SS 
405 22 IN bol 
G40E 23 INX 5 
407 CS1LF@4 JMP FEET 
> ZAVS AN ENTRY TO OUTFUT 
@40A EL FOCD: PCP Hq PTS 
94OB O05. MvT C.NMLEN 
@4@T 46 FAST: MOV BM sLCAT CEARACTER TO 3 
G4GE CD@E01 CALL ouTtEe 
G411 @D | DCR C 
@412 22 INX q 
G412 C20D¢4 JNZ FAST 7DO TRE REST 
> NOW OUTFUT BEGIN END OTRS 
@416 CD2B04 CALL TOCL ;OUTPUT BEGIN 
@419 CD2EG4 CALL FOOL sCUTFTT END 
@41C CISAgi CALL CRL? ,AND C OR 
3 TEST COUNT HL FOINTS FAST EOFFP 
@41F 112400 FEST: LXI D, FELEN-NMLEN-4 
@422 19 TAL [ MOVE TO NEXT ENTRY 
@425 SAT7D1E LDA TOCNT 
C42E ST LG A sTEST COUNT 
@427 CZF@S INZ FINE >MORE TC IC 
@42A C9 RET ;DONE! 


> OUTPUT NOMBED POINTEI 70 BY EL 
> ON RET. P,L POINT 2 WORDS LATER 


$4238 CI79¢2 COL: CALL BLK1 ;SPACE 


@42F 22 INY i 

@42F 7E “OT ALM 

C420 23 TCcYr q 

9431 ES PUSH oi: 

@422 cDEe7E2 CALL HOUT sOUTDUT 

M435 El POP q 

G436 7E MOV ALM 

@427 22 INX Hi 

@438 23 INX E 

G429 FS PUSF soa 

G42A CD7EG2 CALL OTE ;OUTEUT 

Q42D F1 POP z SPESTORE a L 
__@42E Cg RET 


SEERCE THE. clL’ DIEECTORY FOR. TES: site 

WHOSE NAME IS IN FPUE. 

RETUCN IE FOUND. ZERC PS. OFF. S.b PCiIN® 10 

ENTRY Salis SSanCaine CN ENTRY cOUNL With Acre 
ZENO SET FEF ™O 2@ AND @ReRD TO TRE B2ODR OF ENGRY 


be] we wo we we we we 


O43F AF SEA:  XRA A 
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9449 327012 STA FEF ;CLAIM NO FREE =ENTPIES 
S44E CECE MVI 3.MAYFIL ;CCUNT OF ENTRIES 
$445 112418 LX1 D,FILE@ ;TAELE ADDRESS 
@448 217E12 FSE1i¢g: LI HH, FEUrF 
@44P OCS eh C NMLEN 
44D CDEG01 CALL SEAR 7TEST STRINGS 
@45@ ¥F5 PUSE PSW 7SAVE FLAG 
@451 DS PUSE LC 
452 1A LDAX D »GET BOFF 
74°53 37 CRA A ;EMPTY ENTRY? 
@454 C275¢4 INZ FSEZO@ - 
457 13 INX D ;STOREL OCTEER wor? 
453 1A LDAX D 
@459 B7 ORA A 
@45A C27E5R4 JNZ FSt2¢ ;NCPE-GO TEST FOR MATCE 
@45D EF XCEG | 
@45E 11FAFr IXI D -NMLEN-1 
2461 19 TAD 4 >;MOV TO SEGINNING 
G@4E2 227512 Shoo FREAD ;CAVE ADDR 
O4E5 7A MOV A D 
G46E 327014 STA FEF 7SE7T FREE ENTRY FOUND 
 @469 Fl POF gq sRESTOR INTERIM FR 
@4EA FI POP. - PSW yUNJONK STACK 
> MOVE TO NEXT ENTPY : 
C4ERB 11290 Foslo> -<LAT D FELEN NMLEN 
@4E¥E 19 DAD D 
O4EF ER. XCHG sNEXT ENTRY ADDR IN CE 
S472 85 bor B sTEST COUNT 
471 Ce RZ + DONE--NOPE 
@472 C342804 JME FSE12 sTRY NEAT 
SENTRY WASNT FREE. "EST FOR MATCH 
@475 E1 FSE22@: FOP 5 
476 Fl POP PSW 
0477 C2LEEQ4 JNZ FSE15 ;IF ZERO CLEAR. NO “ATCE 
sENTRY FOUNT ae 
@47A LL FPBIF LXI D,~NMLEN . gBACTUP 
@47T 19 TAT D 3H.L FOINTS TO =NTRY 
O47= 7A MOV A D 
@47F 37 ORA A ;CLEAR ZERO 


g4ag C9 RET STHAT’S ALL 


@ we we we 


OCTTCT ERRCR MESSAGE FOR ILLECAL COMMAND 


) 
481 CDSAG1 WEAT: CALL 


CRLY sCUT CRLF 

484 218764 WHAI: LXI H EMES ;MESSAGE ALTTRESS 
487 CDAGD2 MESS: CALL SCRN | 
G48A CZETO? JMP EOR 

? 
48D 574841540D=2MES: DE “WEAT” 13 
@492 46554C4CCTEMES1I- TB “FULL 13 
G@497 4¥4F2A4T4FEMES2: ODER "NO NC 12 


CALL PCUTINE TO ENTER TATA INTO MEMORY 
AMD SRECK FOR ERROR CN EETURN 


we we ee ee we ~w 


THIS ROUTINE IS USEL 70 =NTZE DATA VALUES INTO MEMCRY 


g49D 
C4Ae 
G4A5 
O4AE 


@02F 
@4A9 
@4AC 
Z4a™ 
24P2 
@43B5 
Z438 
S4EP 
G43E 
2402 
C401 
C404 
G45 
C407 
Z4C8 
G49 
G4CC 
@4CF 
G4D2 
C401 
G4T4 
@4D5 
gate 


@4r38 
O4DE 
@4D¥ 
@4E2 
G4¥4 
C4k7 
?4¥e 
G4¥O 
O4E38 
G4¥E 
G4¥O 


CD2705 
Crage4 
DAGE194 
CSSAG1 


CTSAZ1 
CDEesae 
21céi? 
229618 


817518 
BE 


CDEBG2 
CIB5C4 


3A2414 


FESA 
028104 


cn 
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EACH VALUE IS ONE BYTE ANT IS 
VALUES GREATER THAT 2&5 


Luww 


EEXALECIMAL 
TO (EE SES 


WRITTEN IN 
WILL CAUSE CATRY 


AND RETURN TO FH MACE TO CALLING FROGRA™ 
nen: CALL VCHK ;CHECX FOR PARAMETERS 

CALL ENTS 
JC WEAT 
JMP CRIF 

’ 

3 

EEND ECU ene sTFRVMINATION CHAR 

ENTS: CALL CRL? 
CALL PEAD ;PEAD INFUT DATA 
LiI H.bOUrY 3327 Live. POL TER 
SaLt PNT >SAVE PCINTSR 

ENT Ls CALL Z2UF *;CLEAR BUFFER 
CALL SILK 7;CAN TO FIRST VALUE 
Jc ENTS 2u“P IF CR FOUND 
Cot 22ND 
RZ ,P STURN CAREY IS ZEEFOQ . 
CALL ALPS ;¢LACE VALUE IN BUFFER 
MOV ALD sGET LTIGIT CCUNT 
CPI 5 ;CHEC®’ NUR OF DIGITS 
CMC 
ne ;RETCURN IF MCES TEAN z DIGITS 
LXI B,ABUF ;CONVERSION ADDRESS 
CALL AREX sCONVERT VALUE 
RC sEP?OQR IN HEX CFARACTSE 
MOV A.L 
LELD BBUF 7EETCS EMORY ADDRESS 
MOV M.A ;PUT IN MEMCRY 
CALL ACH1 > INCREMENT MEMORY LCCATION 
JMP ENTIL 


tt woe we we we we we we we Ws ws we we we we 


THIS ROUTINE IS USEL TC ENTER LINES INTO THE FILE 
AREA. TEE LINE NUMEE® IS FIAST CHECKED TC SEF IF IT IS 
A VALID NUMEFR .@@@@ 99¢¢°. NEXT IT IS CEECKED TO SEE 
IF IT IS GREATER TEAN TEE MAXIMUM CURRENT LINE NOUMEER 
IF IT IS TEE NEXT LINE IS INS*PTED 47 THE ENT CF TEE 
CURRENT FILE ANT THE MAXIMUM LINE NUMPErF [5 UPDATED AS 
WELL AS TEE END OF FILE FCSITION. [TING NUMBERS TEAT 
ALREALY EXIST ARE INSERTED INTC THe FILE AREA AT TH? 
APPROPRIATE PLACE AND ANY EXTRA CEARACTERS IN TEE OL? 
LINE ARE ITELETED. 


INE: LDA FILE 7IS A FILE DEFINED? 

ORA A 
JZ WHAT sABORT I¥ NOT 
“VI Cc 4 ;NC OCF TIGITS TO CHECK 
LXI ft 2U Ro sINITIALIZE ADDRESS 

LICK: INX F | 
MOV A.M ;FETCH LINE LIGIT 
9 a" »CRECX FOR VALID NUMEER 
JC WHAT 
CPi po ae 
JNC #FAT 


Pare * gg tape FF 


G4rs 
O4F4 
C4Fr”? 
G4FA 
g4rp 
GSA 


C5ee 
GSA4 
Zoe" 
CEA 
ZSE0 
G512 
@515 
@3515 
Col? 
@SiA 
@51D 


@52a 
9522 
G525 
@528 
¢529 
@52A 
9525 
@52D 


B53 


85535 
C524 


GES7 9 


9538 


aD 

C2E704 
227410 
113912 
cpcaes 
D22005 


ras 
CDESGS 
215819 
CICass 
11C51¢ 
2ZAZB1@ 
OEr1 
CDAESS 
SEC1 
227E1LA 
CZE7SO 


Crv7ags 


CA6195 


@538 (TAasi¢2 


OS5E 


@541 
9542 
0543 
@54E 
g549 
9543 
@S4F 


8S51 
8552 
@553 
9554 
2555 
@558 
GE59 
@S5EC 
QSEE 


@S61 


2AZE1L@ 
54 
SD. 
CDA105 
222818 
GES2 
CLAF@S5 
C36125 


SEZ1 
eecr.g 


247216 


> GET FERE IF N¥W LINE IS GREATER TEAN MAXIMUM LINE # 


DC2. C 
JNZ LICK 
“SELL ADIS 
LXI D.MAXL =O: 
CALL Cov? 
JNC INSR 
INX a. 
CALL LODM 
Lil O.MAaxt-é 
CALL STOM 
LYI D.IEUF-1 
LALE EOFP 
MYT C.1 
CALL LMOY 
SFOF: MVI _ Mf 
SALD EOFP 
IMP. FOR 
> GE 
; EXISTING FILE AREA 
INSP: CALL FIN1 
MvVI C6 
JZ EOQUL 
DCz C 
EQUL: MCT BLM 
Pex ist 
MVI M.2 
SELII INSP 
LDA [IBUF-1 
DCR C 
JZ LT 
SUB 3 
Jz ZERO 
JC G 
j GFT HERE IF # OF CHARS 
> NEW LINE OR NEW LINE & YAS NOT 
3 LINE # 
LT? LELD EOF? 
| MOV DE 
MOV EoG 
CALL ADR 
SELI SOFP 
MYyT C,2 
CALL BMOY 
JMP ZERO 
> GET RERE IF # OF CHARS 
> NEW LINE. 
GT: CMA 
INR A 
MOV jae =| 
MOV E,L 
CALL ADR 
XC HG 
CALL LMOV 
MVI Mi 
SELD EOFP 


> GET HEPE TO INSERT CIRRENT LINE INTO FILE 4 
ZERC: 


LALD 


INSP 


SFINE arTRESss 
}GET ADDRESS 


}GET NEW LINE NUMBER 
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SMAXE IT MAXIMUM LINE NUMBER 


s2ND OF FILS POSITICK 


s°LACE LINF IN FILE 


END OF FILE INCICATSS 


,=ND OF FILE ADLPFESS 


sIND LIN= IN sibs 


yN2wW LN NCT EQUAL TC 


sMOVE LINE INITICATC® 


T EERE IF NEW LINE MUST BE INSERTED INTO ALREALY 


SCME CLI 


sINSERT LINE POSTTION 


;NzW LN COUNT 

sNEW IN NOT = OLD Lb 
»COUNT LTIFFERENCE 
9LINE LENGTES sOUAL 


IN OLE LINE - # CF 
sEND OF FILE ADDRESS 


»MOVF TO ADDRESS 


CHARS IN 
EQUAL TO SOME OLD 


sNEY END OF FILe ALLFSSS 


;OPEN UP FILE AREA 


IN OLD LINE « € OF CEARS IN 


;COUNT DIFFERENCE 


;DELETE EXCESS CEAR 
>5-C-F INTICATOR 
7E-O-F ADDPFSS 


waeest ADDRESS 
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@5E€4 3éE@D MVI M ASCR 

GEES 2e INX H 

@5E7 110519 LXI D.IBUF-2 sNEW LINE ADDEESS 
@56A OEC1 MVI C1 ;CHECK VALUS 

@SEC CDAEGGS CALL LMOV ;PLACE LINE IN FILS 

OS6F CS672Z@ JMP EOR 


THIS ROUTINE IS USED TO FIND A LN IN THE FILE AREA 
WRICE IS GREATER TRAN OR SQUAL TC THE CURRENT LING = 


We we ws WE 


@572 218119 FIND: LXI H,ABUEF+3 sPUFFE2 ADDFPFSS 
@575 227418 SHLD ADDS jSAVE ADDEESS 

@S78 2k7918 FINI: LELL BCFP ;BEGIN FILE ALTTIELSS 
G578 7C MOV A, ;RETURN TO MONITOR IF 
go7c 3c ORA L > FILE IS EMPTY... 
BS7D CAE7TOS JZ OR | 
952g CI9Ags5 FIl: CALL E01 ;CHECE FCR END OF FILE 
9583 EF XCEG 

@584 2A7416 LEL®D ADDS ;FETCH FIND ADIFESS 
@587 EPR XCEG 

@5ea ZEe4 MYT A,4 

@58A CLAI2ZS CALL ADP ;EUMP LINE ADLDPESS 
@S5ED CDC8G5 CALL COM@ = ;COMPARE LINE NUMBERS 
g59¢ fe RC 

g591 €8 RZ 

@592 7E Fi2: MOV A.M | 

@593 CLA1e@5 CALL ADR »NEXT LINZ ADDRESS 
GS596 CeReas JMP FIl | 


; 
, 
> WEEN SEARCHING THROUGH THE FILE ARFA THIS RCUTINE 
> CHECKS TO SEE IF TEE CURRFNT ADDRESE IS THE END CF 


> FILE 
, 
599 23 FOF: INX EH 
O@S9A SEC1 EQ1: MVI Al 3E-O-"7 INITICATO2 
g59C BE CMP M 
@59OT Ce RNZ 
ZSOE CZE79G JMP EOR 


THIS RCUTINE IS USED TO ADD A VALUE TC AN ADDRESS 
CONTAINED IN REGISTER F L 


pre wo we we we we 


@5A1 85 , DR: ADD L 
@S5A2 6F MOV LA 
OSAS De RNC 
QSA4 24 | INR E 
Q5A5 C9 RET 


THIS ROUTINE WILL “OVE CHARACTER STRINGS FROM ONE 
LOCATION OF MEMORY TO ANCTHEP 

CFARACTFRS ARE MOVED FROM LOCATION ADDRESSED EY D.F 
TC LOCATION ALDRESSEFT 3Y 3.L. ADDITIONAL CHARACTERS 
ARE MOVED BY BUMPING POINTERS UNTIL TEE CHARACTER IN 
REG C IS FETCHED. 


We We wo We we We We we Wwe 
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@5A6 1A - LMOV: LDAX D >FETCH CHARACTER 

@SA7 13 INX i sINCREMENT FETCH AITTRESS 
@5A8 89 CMP C sTERMINATION CHAPACTER 
@5a9 CS RZ | 

@SAA 77 : MOV M.A ySTORE CHARACTER 

@5AB 235 INX ££ : sINCREMENT STORE ADDRESS 
@5AC CSAEOS JMP LMOV : 


THIS ROUTINE IS SIMILAR TC ABOVE EXCEPT THAT TEL 
CEARACTER ADIRESS IS DECREMENTED AFTER EACH FETCE 


"XJ wo we we we we we 


AND STORE 
GSAF 1A RMOV: LDAX OD FETCH CEARACTER 
Q53 13 Dex D LECRENENT FETCZ ALLRESS 
O5P1 BO CMP Cc STERMINATION CHARACTER 
@5B2 cg RZ | 
@ERZ 77 MOV M.A ;STCRE CHARACTER 
ZSR4 23 DCX E SDECREMENT STORE ADDRESS 
Q5B5 CZAF¢5 IMP RMOV 
? 
7 
; TEIS ROUTINE IS USED TO LOAD FOUR CHARACTERS FROM 
; MEMORY INTO REGISTERS 
9 : : 
@SEa 46 LODM: MOV BOM SFETCH CHAPACTER 
Q5BO 23 INX q 
@5BA 42 MOV C.M ;FETCH CHARACTER 
@SRB 23 INX o£ 
@5EC 5e€ MOY D.M ;PETCE CHARACTER 
@SEI 22 INK g 
@5PE 5 MOT EM ;FETCE CHARACTER 
@5Br cg | RET 
| 3 
? 
; TEIS ROUTINE STORFS FOUR CHARACTERS FROM TEE EEGISTERS 
; INTO MEMORY 
? 
g5ca 72 STOM: MOV ME SSTCRE CHARACTER 
G5C1 22 DCX 5 
G5C2 72 MOV MD ;STORE CHARACTEP 
g@5C2 2B : rex q 
GSC4 71 MOV M,C SSTORE CHARACTER 
2505 223 DCX q es 
G8CS 70 MOV M.B ;STORE CEARACTER 
g5c? cg PET 
? 
$ 
j TEIS ROUTINE IS USED TO COMPARE TYO CHARACTER STRINGS 
; OF LENGTH 4 ON RETUEN ZERC FLAG SET MEANS BOTH 
; STRINGS ARE ECTAL. CARRY FLAG -@ MEANS STRING ADDRESSED 
; BY D E wAS GREATER THAN OR EQUAL TO CHARACTER STRING 
; ADDRESSED BY #.L 
, 
@5¢8 @6e1 come: = MVI B1 EQUAL COUNTER 
OSCA ArO4 MYT C.4 SSTRING LENGTH 
@5cc 37  ORA A SCLFAR CARRY 
OSCE 1A col: LIAY OE SFETCH CHARACTER 


@SCE OE | pep) M ;COMPARE CHARACTERS 

OSCF CALSS a C02 

BEDE 4 INR E ;INCREMENT EQUAL CCUNTER 
GSTS 1B C02° DCX D 

@SD4 2E TCX H 

@5D5 aD DCF C 

@5I6 c2cres JNZ Col 

G5T9 @5 DCR B 

QSPA C9 RET 


TRIS ROUTINE IS SIMILAR TC THE ABCVE ROUTINE EXCEPT ON 
RETURN CARRY FLAC - 6 “TANS THAT CHARACTER STPIAG 
ATTRESSED BY [T,© IS CNLY * STRING ALLTASSSED SY 2 L 


Ca we we we we we 


@STB GEG4 OM1: MYI C 4 sSTRING LENGTH 
@5DD 1A LDAX D 7TCE CRARACTEP 
OSDE DECI SUI ; 

O@S5E2 CICuLeS JMP COl+1 


THIS ROUTINE WILL TAFE ASCII CaARACTERS AND ADD ANY 
NECESSARY ASCII ZERCES SO THE RESULT IS A 4 CEARACTER 
ASCII VALUS 


We WO ws WE 86 We 


GSES CDBACS 


Zz 


1ORM: CALL LODM *>LOAD CHARACTERS 


@SEE AF XRA A >FETCE A ZERO 
@SE7 38 CMP bs 

@5¥8 C8 RZ 

@SE9 BB NCRi- CMP E 

OSFA C4CO@5 CNZ STOM ySTORE VALUES 
@SEL CQ RNZ | 

@SEE SA MOV E.D sNORMALTZE VALUE 
@SF¥ §1 MOY D,¢ 

@SFZ 48 MOV Cc B 

@5¥F1 BESO MYvI B, @° 

@SFS CSEQSS JMP NOR1 


THIS ROUTINE IS USED TO LIST TEE CONTENTS OF TEE FILE 
AREA STARTING AT TEE LINE NUMBER GIVEN IN TEE COMMAND 


we SOS We we We 


OSFE CDSAG1 blot? CALL CRLF 


OSF9 CD72¢05 CALL FIND 7FIND STARTING LN 

@S5FC 25 LISTS: INX E sOUTPUT LINE. . 

@SFU CLagg2 CALL SCRN 

GEG@D CDSAG1 CALL CRLF 

CEOS CDOS CALL EOF , 9CHECK FOR END OF FILE 
E06 CLETZSY [2.0% CALL “ENE SCHECK FOR CTRL-Z 

BECO C2rces IE oP NZ" LIST@ +LOOP IF NO CTRL-X 
EGC C9 <h RET 


THIS ROUTINE IS USEL TO LELETE LINES FRCM THE 
FILE AREA. TEE REMAINING FILE AREA IS TREN MOVED IN 
MEMORY SO TEAT THERS IS NO EXCESS SFACE. 


tJ wo we wo we we we 


GEGD CD27 ELL: CALL VCEK ;CHECXY FOR PARAMETER? 
2618 Cl7225 CALL FIND ;FINDT LINE IN FILE AREA 


g615 
CE1E 
GE19 
CELA 
@E18 
GELE 
@621 
GE€24 
@E25 
ZE28 
ZE2B 
GE2E 


CES1 
CES4 
CESE 
CEI? 
GESA 
GESB 
GESD 
BESE 
CES 
GE40 
2641 
@642 
GE44 
GE47 
g648 
ZE49 
QE4A 
GE4D) 
C64E 
CE4F 
BESO 
GEE1 
@E52 
@ES5 
GESE 
Z€57 
BESS 
GES5E 
ZE5C 
@ESF 
2E62 
GEES 
SEEE 
GEE” 
SEE 
GEEB 
GEEE 


gE6r 
BEV72 
GE75 
S676 
ZE679 
GE73B 
SE7F 


227210 
218512 
TE 

BY 

C22186 
218110 
227418 
EB 

212010 
CDCcags 


2A7212 © 
DAEFSE 


222312 
SEI 
EB 
2A2912 


CDBEG5 
212218 
CDCBSS5 


CD8e@e5 
CC92A5 
EB 
2A72198 
GEQ1 
CDAEZS 
222F18 


DELI: 


; GET 


? 


NOVR: 
NOV1i: 


SELD DELP 
LxI KH ABUF-7 
MOV A.M 
ORA A 

JINZ DELL 
LXI @ ABUF: 3 
SELD ADDS — 
XCEG 

LXI B MALLS 
CALL CCM@ 
LELD DELP 
JC NOV2 
SRLT ROFP 
MYI ne 
XCEG 

LELI BOFP 
XCEG 

MVI BL 
pcx E 

MOV A,L 
SUB E ; 
MOV AE 
SEB D | 
MVI A ASCE 
JC DEL4 
TCR B 

DCX E 

CM? " 

INZ TEL2 
DCX E 

MOV ACL 
SUE E 

MOV A.a 
SBP bY 

JC DEL5 
CrP uu 

INX BR 

INZ is 
IZ TEL 
INX E 

CALL LOD™M 
LXI H.MAXL+3 
CALL STOM 
RET 

CMP 5 

XCEG 

JNZ PELS-1 
STA — MAXLE 
RET 

> GET EFRE IF DELETION 

CALL Pad 

CZ Fl2 
XCEG 

LHLI TELP 
MVI C,i 
CALL LMOV 
SHLD EOFP 


FAGE 2¢ 
SSAVE DELETE POSITICN 


sCRECK FOR 2ND FARAMETER 
sSET FLAGS 


;USE FIRST FARAMETER 
;SAVE FIND ALTRESS 


;COMPARS LINE NUMBERS 
>LOAD DELETE POSITION 


HERE IF DELETION INVOLVES END OF FILE 


;CHANGE =3-O-F POSITION 
;SET E-C-F INDICATOR 


SGFT BEGIN FILE ALIPESS 


;SFT SCAN SWITCE 
;CHECK FCE BQ? 


»LCOE FOR Ci 


~yDECREMENTED FAST C7 


sFIND NEW MAX LN 


SEND OF FREVIOUS LINE 


;LOAD NSW MAX LN 
;SET ADDREES 


STORE NEW MAA LN 


»CHECK SWITCH 


;MAYE MAX LN 4 SMALL NUMBER 


IS IN MIDDLE OF FILE AREA 


;FIND END OF DELETE AREA 
sNEXT LINE IF TSIS LN EQUAL 


;CHAR MCVE TC POSITION 
;MOVE TERMINATOR 
;COMPACT FILE AREA 
;SET EOF POSITION 


@EB1 SE1 MVI M1 ;SET 2OF INDICATOR 
@EBS CO RET 


STARTING FERRE IS TEF SELF ASSEMELEP PROGRA*. 
TEIS PROGRAM ASSEMBLES PROGRAMS WHICH ARE 
IN THE FILE AREA 


p> we ®2e WO We we 


E04 CDL7G3 SSM: CALL VCRK ;CHECK FOR PARAMETER 


GE87 3A8219 LDA ABUF-4 5;GET 2ND PARAMETER 

@ESA B7 CRA A ;CFECK FOR PARAMETEES 
ESP C29406 INZ ASM4 

CEBE 2ABA1G LELD BBUF >FETCH 1ST FARAMETER 
E91 228014 SHLT BBUF-2 ;STORE INTC END PARAMETER 
GE94 ZACAIG ASM4: LDA IBUF-4 ;FETCH INPUT CEARACTER 
S697 TE45 SUT aE sRESET A IF ERRORS ONLY 
GE9O S2EE12 STA AEPR 7SAVE ERROR FLAG 

GESC ZETF MVI A,@FFE ;PUT MARKER IN SYMBOL TABLE... 
GEQE SZ1Al11 STA SiMt | 

Q6A1 AF XPA A ;GET A ZERO 

CEA2 329412 ASUS: STA PAST ;SET PASS INITICATCR 
SEAS CDIAG1 CALL CRLF SINDICATE START OF FASS 
PEAS 2AGA1Z LELD BBUF ;FETCH ORIGIN 

GEAB 229210 SHLT ASPC sINITIALIZE PC 

GEAE 2429128 LELD BOFP +GET STAPT OF FILE 

G6B1 227210 SHLD APNT 

@EF4 247210 ASM1: LaLT APNT ;FETCE LIN® POINTER 
QEB?7? 351B119 LXI SP ,AHEA+18 

CEBA 7E MOV A.M ;FETCR CEARACTER 

GERR FECL CPI 1 SEND CF FILE? 

GEBD CA2Da9 JZ FASS ;JUMP IF END OF FILE 
@ECA EB XCHG 

GEC1 15 | INX D sINCREMENT ADDRESS 

G6C2 212112 LXI F OEUF ;BLANF STAFT ADTELSS 
GECS ZEC1 MvT A.IBUF-5 AND @FFE ;3LANK END ALTRSSS 
GEC? CDESGO CALL CLER yELANS OUT SUFFER 

G6CA CEOT pen C ASCR ;STOF CHAFACTER 

@ECC CDAEGE CALL LMOYV SMOVE LINE INTO BUSTER 
@ECY 71 “OV MC »PLACE CR IN BUPTFER 
geTa EB XCHG 

GED1 227216 SHLD APNT ;OATE ADDRESS 

CET4 SA9412 LDA rASI sFETCH FASS INDICATOR 
GED? BY ORA A sOET FLAGW 

GEDB C2E1Z6 JNZ ASM2 sJUMP IF FASS 2 

GELB CI2@ee7 CALL PASI 

CEDE CSB4G6 JM ASM1 

GEE1 CDCOO7 ASM2: CALL PAS2 

GEE4 CIEAGE CALL AOUT ;CUTPUT LINE 

G@EE7 CSE4G6 JMP ASM1 


THIS RCUTINE IS USET TO OUTPUT THE LISTING FCR 
AN ASSEMBLY. IT CEFCKS THE SEROR S¥ITCH TC SEE Is 
ALL LINES ARE TO BE PRINTED CR JUST THOSE WITH 


p> WO wo we We we we 


ERRORS. 
GEA SABEIC OUT: LDA AERR jFETCE ERROR SWITCE 
@6ET 27 . ORA A sSET FLAGS 
@EEE C2F7CE JNZ. ACT sOUTPUT ALL LIN=S 


GEF1 SABIIG¢ LDA OBUF ;FETCE ERFOR INDICATOR 


GEr4 
GEFE 
Cer? 
CEFA 
GEFT 


e7eeS 
C7AS 
S7BHE 
O7LS 


870C 
e7A¥ 
@?12 
@715 
8718 
C718 
@71D 
8720 
| 89721 


@722 1 


C72E 
C724 
8725 
728 
3729 
8720 
O72 F 
B730 
C721 


CDABB2 
CSEAG1 


CISze1 
329418 
210619 
Créle?7 


CDSOSB 
TAGFOR 
CAEAGC 
CT4FO?7 
C2OFOR 
SECS 
217F1¢2 
7y 


EB 
229919 
ZA0319 
7? 
28.23 
3A0210 


G734 77 


B735 
OP?I6 


738 
OVER 
S@72E 
O741 
O744 
S746 
6749 
@74C 


O74 
OVE2 
8753 
8755 
Q75E 
8753 


23 
o6FF 


CDSSA1 
CDSEZ9 
TASEGB 
CDSEAGEB 
FE2Q- 

DAOSZA 
C2S5EGB 


C3SSOA 


CPI 
RZ 
LXI 
CALL 
J™P 


ACU1: 


PASS? OF ASSEM 


ty we we we 


AS1: CALL 
STA 
LXI 


CALL 
PROCESS LABEL 


we we we 


x 4 
t~? 
t= 
bd 
“$s 
oO 
<i 


FROCESS OPCODE 


TC) we we wo 


PC: CALL 


trae we we we 


CHK: 


7 


H OBUF 


SCRN 
CRLF 


BLER . 


ZBUF 
PAST 
H,1BUYr 
PATCH 


TEIS ROUTINE CHECKS THE 
FCP A BLANS OP A COLON. 
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;CEECK FCR AN SRPOP 
sRETURN IF NO E=ROR 
,;OUTFUT BUFFER ALDRESS 
»CUTPUT LINE. 


USED TO FORM SYMBOL TABLE 


;CLEAR BUFFER 
;SET FCR PASS1 
piNITTALIZE LING 
>CHECK FOR LABEL 


POINTER 
OR COMMz£NT 


>GzT AND CHECK LASEL 

sERROR IN LABEL 

;DUFLICATS LABEL 

;CHECK CHARACTES? AFTER LABEL 
;EPROP IF NO ELANK 

sLENGTH OF LABELS 

;SET EUFFEPR ADDZESS 

;FETCH NEXT CEARACTER 


’3STORE IN SYMBCL TASLE 


;SAVE TABLE ATIRESS FOR ECU 
>FETCH PC ‘HIGH 


;FETCS 
ySTORE 
>STORE 


PC ‘LOW 
IN TABLE 


END-OF-TABLE MARSER 


yZ2RO0 WORKING BUFFER 

sSCAN TC OFCODE 

sFOUND CARFIAGE RETURN 

sFPLACE OPCOLDE IN BUFYER 
>CHECK FOR BLANK AFTER CPCODE 
7CR CR TAB AFTER OCPCCLE 
;ERROR [7 NO BLANK 

;CHECK OPCCIE 


CFARACTER AFTER A LABEL 


;GET CHARACTER AFTEF LABSL 
;CEECK TOR A BLANK | 
;RETURN IF A BLANK 

;CHECK FOR A TAR 

;RETURN IF A TAB 


SAGE 23 


@759 FESA CPI eae: sCHECK FOR A COLON 
@7S5B CO RNZ 

@7EC 23 INX H 

975) 229€18 SELD PNTR sSAVE POINTER 

e7EO CO RET 


CHECK FOR LABELS OR COMMENTS 


@7E1 23 ATCH: INX SP ;BUMP SP PAST RETURN ALLDRESS 
Q762 22 INX SP 
@763% 229619 SHLI PNTR sSAVE PCINTER 
Q76E 7F MOY A.M ;FETCH CEARACTER 
@767 FE22 CPY ai ;CEECK FOR 4 BLANK 
G769 CAzZea7 JZ OPC ;JUMP IF NO LABEL 
@7EC FEO CPI SOE ;CHECK FOR A TAS 
O@7EE CAZS27 JZ OPC sJUMP IF NO LABEL 
O771 TE2A CPT 73” sCHECK FOR COMMENT 
9773 Ca RZ ;RETURN TO EIGHER LEVEL 
Q774 FFRZ3 CPI “5 ;ALSO CHECK FOR COMMENT... 
@776 Ca RZ 
@777 zB DCX SP ;POINT SP AT IMMEDIATE RETURN... 
@778 SEB ECx SP 
8779 CO RET 
] 
>; PROCESS ANY DSTULTO CPS THAT NEET TO BE IN PASS 1 
9 
G77A CI39G9 FSU1: CALL SBLK ;SCAN TO OPZSPANTD 
O77D 1A LIAX r 3FETCH VALUE 
O77E B? ORA A 3SET FLAGS 
@77F CASEL7 TZ ORG1 3ORG OFCODE 
G7R22 FACEA7 JM DAT sDATA STATEMENT 
@785 E2ARO”? JEO EQUL 3EQT OPCOLE 
g7aa FEOS CPI 5 
@78A DABES? Jc PES1 sRES OPCODE 
@78D c22re9 JNZ TASS sJUMP IF END 
; DO Dw PSEUDO/’OP 
@79¢ @EG2 ACOL: MUI C2 32 BYTE INSTRUCTICN 
@792 AF XPA A 3GET A ZERO 
@793% C325OP JMP OCN1 ;ADD VALUE TO FROGRAM CNTR 


; [CO ORG PSFULO-OP 
@796 CDBCOB OPG1: CATL ASCN 7GET OPERAND 


@799 3AB119 LTA OBUF ;FETCH ERROR INDICATOR 
@79C FE2ZA CPt -* yCHECK FOR AN ERROR 
O79E CB | RNZ 

G@79F 229210 SELD ASFC ;STORE NEW ORIGIN 

G@7A2 SACS1G LTA I3UF 7GET FIRST CHARACTER 
O@7A5 FE21 CPI = Sted ;CHECK FOR LABEL 

C7A7 TS RC 7NO LABEL 

S@7AB CSEEC?T JMP ECUS »CRANGE LABEL VALUE 


> DO EQU PEFUTO-OF 
O7AB CYBCLB ECU: CALL ASCN sGET OPERANT 


O@VAE SACE1G LDA TB? »FETCH 157 CHARACTER 
@7Bi FE21 CFI ae »CFECK FCR L&sk 
C7RBS DACSSC JC ERRM sMISSING LABEL 
O7BE EB EouUSs XCHG 
O7B7 2A9812 LELT TABA ;SYMBOL TABLE ADDRECS 
@7BA 72 MOY M.D ;OTCRE LAEFL VALUE 


O7BB 23. INX & 


@7BC 
O7BD 


OVRE 


@7C1 4 


87C2 
67CS 


@7CE 


@7C9 
@7cc 
C7CF 
@?7N2 
@7Cz 
@7D6 
Z7D9 
S7DA 
87 OD 
C7EC 
O7ES 
@7E6 
O7FO 
SVEC 
QV7EF 
@7¥2 


O75 
OV7FS6 
7K? 
CTPA 
@7FD 
E2P?S 
CE82 
g805 


G88 
2208 


280k 
@a11 
@812 
G21ze 
@81E 
g217 
@Q1A 
Ga12 


GA1E 
821 
ga22 


C321¢29 


21ET1¢ 
SAIS1IO 
CDAPAZ 
23 

cA92Z12 
CDAF@2 
235 

229712 
CDSSe1 
21célz2 
CDE187 
CLES 
DAESZC 
CD4LIC? 
C2ESZC 
CS2887 


1A 

Ev 
CACSGS 
FALEQ@S 
E22798 
FE@5 
DA@ESS 
C22DG9 


cpeDes 
C39807 


CDBSOB 


44 


CS2a0B 


crcces 
AF 
SEG1 


DO DB 
AT1- 


rep we we we CJ we we we 


AS2: 


PAEL: 


mW ~<e we see ‘2e@ 
"™ 


PROCES 
U2: 


MOV M.E 
RET 

PSEUDO-OP 
CALL ASCN 
MOV B,E 
MOV cL 
IMP RES21 
PSEULO-CP 

IMP DATQA 


LxI 
LTA 
CALL 
INX 
LIA 
CALL 
Ink 
SELL 
CALL 
LXI 
CALL 
CALL 
JC 
CALL 
JNZ 
JMP 


UOBUF-2 sSET OUTPUT 2UPFER 


ASPC-1 
BINS=< 
q 

ASPC 
Sone 
B 

CINT 
ZEUF 
E.IBUF 
PATCH 
SLA? 


FRRL 


LCEK 
fRRL 
OPC 


S PSEULO OPS 
LDAX D 
ORA A 

JZ ORG2 
JM TAT2 
JPO rove 
GP 1 eS 

JC RES2 
JNZ EASS 
PSEULO-OP 
CALL TYS6 
JMP ACO1l 
PSEUDO-CP 
CALL ASBL 
MOV Crest 
MOTs C.L 
LELE EBUF 2 
DAD ae 
SHLD BBUE=2 
XRA A 
JMP - OCN2 
PSEUDO-OP 
CALL TYS5 
XRA A 
MVI C1 
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7GET OPERANT 


,ADD VALTE TO FROGRAM COUNTER 


PERFORM PASS 2 OF THE ASSEMELER 


ADDRESS 
sFETCH PC HIGH 
sCONVERT FOR OUTFUT 


;FETCS PC LOW 
>CONVERT FOR OUTPUT 
;SAVE CUTPUT ADIEESS 
sCLEAR BUFFFE 
sINITIALIZe LINE PCINTER 


>SCAN OFF LABEL 

sEPRCR IN LABEL 

;CHECK FOR & BLANK CPR COLON 
;ERRCR IF NOT A BLANE 


FOR PASS2 


;OET FLAGS 

;OR% OFPCODE 

;TATA CPCCOLE 
sEQUATE PSSULDE-CP 


OPCOLE 
CPCODE 


sRES 
> END 


sGET VALUE 


;GET OPEPAND 


sFETCH STORAGE COUNTER 
»ATT VALUE 

sGET A 7EKO 

T CPERANT 


cE 
;MAKE A ZERO 
SBYITE COUNT 


9824 CS2ECR JMP OCN1 
RANDLE EQUATES ON 2ND PASS. 


CALL 


tre we we 


@827 CDEOOB QUe2: ASBL +GET OPERAND INTO EL AND 


> FALL INTO NEXT RCUTINE 


STOPE CONTENTS OF HL AS FEX ASCII AT OBUF é. 


bd we we ws ws 


ON RETURN DE HOLDS VALUE WHICH WAS IN HL 
@O2A EB INAD: XCEG SIUT VALUE INTC L2 
@S2R 212316 LXI H.OBUF-2 ;PCINTER TO ADIR IN OEUF 
ga2t 7A MOV AD SSTORE HI BYTE.... 
Ga2F CDAFG2 CALL BINE--3 
Q832 23 INX A 
@Qzz 7B MOV AE ;STORE LO BYTE... 
#224 CDAFG2 CALL § BINH-2 
9837 23 INX E 
gezg C9 RET 
> DO ORG PSFUDO-OP | 
Ge39 CDBOGE ORG2: CALL  ASBL ;GET NEW ORICIN 
gazc SAB112 LTA OBUF SGET ERRCR INLICATOP 
Ga3F FE2G CPI = SCHECK FOR AN ZRRCR 
7241 CO RNZ ;DON’T MODIFY PC IF FREOR 
@a42 CD2Ag8 CALL BINAD STORE NEW ADDR IN OEUF 
9845 249212 LELD  aASPC ;FETCE FC | 
@842 FB XCEG 
9249 229219 SHIP asPc ;STORE NEw PC 
geac 7 MOV AL 
984) 93 SUE E ;FORM DIFFFRENCE OF ORIGINS 
@a4r SF MOV E,A 
Ga4F 7C MOV AH 
ga5q 9A SEB D 
@A51 57 MOV L.A 
geaS2 2Aac19 LELD BEUF-2 $FETCE STORAGE POINTER 
ga55 19 DAD D ;MODIFY 
@as6 228C1¢ SHLI  BBUF+2 jSATE 
gas9 C9 RET 
s 
; PROCESS 1 BYTE INSTRUCTIONS WITHOUT OPERANDS 
, 
O8SA C31AG9 TYP1: JMP ASTO SSTORE VALUE IN MEMOZY ANT RETURN 
» 
; PROCESS STAX ANI LDAX INSTRUCTIONS 
’ 
@Q5I CrBO@B  TYP2: CALL ASBL SFETCH OPERAND 
A268 C4A50C CN2Z ERRR SILLEGAL REGISTTR 
geez 7D MOV AVL sCET LOW CRDER OPERAND 
G864 B? CRA A SSET FLAGS 
@865 CA8108 IZ TY31 SOPERAND = @ 
Q2EQ FEL CPI 2 SCPERAND = 2 
Q8EA C4A50C CNZ ERRR SILLEGAL REGISTTR 
G2ED CzZ81¢8 IMP TY31 
3 ; 
; PROCESS PUSH,POP,INX.DCX .DAD INSTRUCTIONS. 
. ? 
9870 CDFOGE TYPS: CALL ASBL SFETCH OPERANL 
9873 ERRP 


C4A50C 


ONE 


»ILLEGAL REGISTER 


@87éE 
gar"? 
ga73 
28728 
G87C 
Ga7z 
SeS8i 
G22 
gees 
g884 
Z£85 
2886 
2887 
gAag 
gesc 


gSar 
#892 
8895 
@RSE 
gags 
ZESEB 
geoc 
@ack 


@Sal } 


GSAS 
GSA4 
GEA? 
SSAA 


CEAD 
GGAE 
GRAF 
BaPA 
ZeaBl 
GaBe 
@8B5 
goke 
GaRB 
GSRc 
Gauk 
g8C1 


@ac4 
CECE 
garg 
Zacc 
gacr 
CED 
geT2 
GED5 
gate 


88 
FETE 
CCASOC 
CESAGA 


CDESOB 
C4AS5AC 
7D 
F¥EZS 
D4AS2C 


CAE1G8 
FAR4Z@ 
C38188 


12 
CIEBSS 
CDECGE 
C4A50C 
7D 
FEG@8 
T4A5@C 
Cla4G8 


PEGE 
CCDIAS 


7D 
CE5AG8 


bj oe wo we 


by we we we we we 


3 
vg 
c“” 
a 


CALL ASBI 
CNZ EF RR 
MOV A,L 
CPI 8 
CNC ENRR 
LDAX D 
CPI E4 
JZ TY41 
CPI 199 
MOV Ak 
JZ TYS21 
JM TTg2 
uMP TYS1 
DAD a 
DAD E 
DAL H 
ADD L 
STAX D 
CALL MPNT 
CALL ASCN 
CNZ ERRR 
MOV AL 
CPI 8 
CNC ERER 
JMP TYS2 


CPI 


FROCESS ACCUMULATOR 


6 


SGET LOW ORTER CPERAND 
SCHECK LOW ORDER PIT 
SILLEGAL REGISTTR 
;RFSTORE 


sILLEGAL REGISTER 
sMOLTIPLY BY § 


;FETCE OPCODE BASE 
;FORM OPCOLE 

;CEECK FOR MOV M,/ 
SILLEGAL REGISTER 


INR [CR,MOV.RST INSTRUCTIONS 


»FETCE OPERAND 
sILLEGAL REGISTEP 
7GET LOW ORDER OPERAND 


>I LLEGAL PLGISTEP 
jFETCH OFCODE EASE 
sCHECK FOR MOV INSTRUCTION 


sPST INSRUCTION 
sACCUMULATOR INSTRUCTION 
;INR.DCR 


PCCESS MOV INSTRUCTION 


sMULTIPLY OPERANT BY 8 


>F¥ORM OPCCDE 
>SAVE OFCODE 


,IMCREMENT POINTER 
;FETCH LCW ORLER OPERANT 


sILLEGAL REGISTER 


FROCESS IMMEDIATE INSTRUCTIONS 
IMMEDIATE BYTE CAN BETWEEN -25€ AND -255 

MVI INSTRUCTICN IS A SPECIAL CASE AND CONTAINS 
2 ARGUMENTS IN OFERAND 


sCHECK FOR MVI INSTRUCTION 
;STORE ORJECT EYTE 
7GET IMMEDIATE ARGUM2NT 


K OPERAND FOR RANGE 


LC 
ERAND OUT OF RANGE 


FETCE 1ST ARG FOR MVI AND LX¥I INSTRUCTIONS 


tr} wae we we 


@8D9 CDFOGE 726; CALL ASBL sFETCH ARG 


Gene C4A5Oc CNZ ERRR sILLEGAL REGISTER 

@2LF 7D) MOV A.L sGET LOW OFTER ARGUYVEST 
gers FECES CPi 8 

Zeke D4as2c CNC PRek sy ILLEGAL REGISTER 

ZBEFS 29 DAD H 

@8FE 29 DAD R 

GRE7 29 DAD R : 

@8Ea 1A LDAX D sFETCH OPCOITE BASSE 

G8E9 8&5 ADD L »fOR OPCOLTE 

@Q¥A SF MCV EA sSAVE OBJECT BYTE 

G&EB 249616 MPNT: LELDP PNTS sFETCH FOINTER 

CAFE 7E MOV AM »FETCH CHARACTEQ 

AQFY FECC CPI ox sCEECK FCR COMMA 

@8F1 235 INX H > INCREMENT POINTE? 

@aF2 229612 SHLD PNTR 

@EFS C2AEZC . JNZ FRRS sSYNTAX ERROR IF NC COMMA 
Garg 7B MOV AE | 
g8t9 C9 RET 


FROCESS = BYTE INSTRUCTIONS 
LXI INSTRUCTION IS A SPECIAL CASE 


tye we We we 


ZOFA FECL TPE: CPI 1 sCHECFK FOR LEXI INSTRUCTION 
GEFC C2GAG9 JINZ TyS sJUMP IF NOT LXI 

gQF¥F cDdDees CALL TY5¢ 7GET REGISTER | 
G292 FESS ANT 88H sCHECK TOR [LLZGAL EEGISTER 
0904 C4Aa50C CNZ ERRR ;REGISTER ERROR 

GO27 7B MOV A.E 7GET OPCODE 

G@9G8 FEF? ANI OF7H ;CLEAR EIT IN ERPOR 

gOOA CDLIAGS TY: CALL ASTO ;STORE OBJECT BYTE 

go@Ll CIEBOSB TYSé: CALL ASEL s7ETCH OPERANT 

919 7D MOV A,L 

9911 54 MOV D.a 

9912 CD1IAGS CALL ASTO ;STOCRE 2ND BYTE 

gO15 7A MOY A.D 

@S1E CSSAG8 JP  TYP1 

8919 C9 RET 


THIS ROUTINE IS USED TO STORE OBJECT CCDE FRODUCEL 
BY THE ASSEMBLER DURING FASS 2 INTO MEMCRY 


frm wo we we wo 


@O1A 2A8C12 STO: LHLT BBUF 2 ;FETCH STORAGE ADDFESS 


891d 77 MOV M,A jSTORE OBJECT BYTE 
GO1E 25 INX RB ; INCREMENT LCCATION 
SO1F 22801 SELD PEUP <2 
@922 2A9T18 LELD OIND >FETCE OUTTUT ALDRESS 
925 25 INX E 
G@925 CDAFG2 CALL BINH-2 ;CONVERT OFJECT FYITE 
@929 229T12 SHLE OIND 
g92C C9 RET 


GET HERE WEEN END PSEUDO-OP IS FOUND OR WHEN 
END-OF-FILE OCCURS IN SOMRCE FILE. CONTROL IS SET 
FOR EITHER FASS 2 OR ASSEMBLY TERMINATOR IF FINISHED. 


~we WS WE We 


9 
92D 349419 EASS: LDA PASI SFETCH PASS INDICATOR 
go2¢ BY ORA A ;SET FLAGS 
9931 C2E79¢ INZ FOR § $JUMP IF FINISHET 
9934 3F21 MVI  A,1l  «~—s $FASS INDICATOR FOR 2ND PASS 
9936 C3A2GE JMP ASM2 sDO 2NI PASS ‘ 


TEIS ROUTINE SCANS TEROUGE A CEARACTER STRING UNTIL 
THE FIRST NON-BLANK CHARACTER I5 FOUNT 


ON RETURN CARRY SET INDICATFS 4 CARRIAGE RETURN 
AS FIRST NON-PLANK CHARACTER. 


ee we CWO Ce We WO we 


@9z9 209619 SBLK: LELD ENTR. SFETCE ADDRESS 


SSC 7E Sauls MOY A.M ;FETCE CEAFACTER 
@OZD FECO CFI O98 31S IT A TAB? 

@OZF CA4EMS JZ SBLzZ ;TREAT LIXE A BLANK 
go42 FE2¢ CPT x ;CHECK FOR A ELAN® 
go44 C2 RNZ sRETURN IF NON- PLANS 
G945 25 en Pr INX E i; INCREMENT 

G94E 229E190 SFL PNTE ;SAVE POINTER 

9949 C3SceS JMP SSL1 


TEIS ROUTINE IS USED TO CPECK THE CONDITION 
CODE MNEMONICS FOR CONDITIONAL JUMFS. CaiLL& 
AND RETURNS. 


CQ oo wo we we We wea 


@O4C 217710 OND: LXI H.ABUF-1. 

GO4F 227419 SELD ADDS 

S252 GEC2 MVI B,2 32 CHARACTERS 
9954 CZAGAA JMP COPC 


THE FOLLOWING IS THE OPCOLE TABLE 


oO we 8 WS we WO 


TAB: DB ‘ORG’ 


@O57 4F8247 

GOfA Bg DB g 
GOEB BO DB g 
B96C 455155 TB ‘EQU’ 
GOEF gg DP 2g 
G960 O1 DR 1 
Q9E1 4442 TB DB’ 
OSES ag DE } 
G9E4 3G DB tisé«@KW 
e965 FF | DP 255 
@966 4452 DE Ds’ 
QSE8 26 DB g 
G969 22 IBté‘é 
G96A O DE 3 
QSER 4457 DE Dw’ 
BSED 2g DB ;) 
GS6E 2G DF ") 
GOET 25 DB : 
@O70 454544 BP. ¢ IND’ 
BO7Zz OG DE 


g 
g974 26 DBté@ 


9975 
a@S7é 
gg79 
G97 A 


gO"D 67 


GO?E 
@981 
g982 
goARs 
@986 
g989 
CORA 
2oeD 
G98E 
go91 
9992 
go95 
COSE 
gcg9 
GSSA 
¢oor 
299% 
QSAR 


GOAL % 


GOA2 
GOA4 
2SA5 
OOAE 
GSAS 
QOAA 
SCAB 
OOAF 
ZOBe 
OOF4 
GOEBS 
ZORO 
COPA 
CORE 
GORF 
ec 
gOC4 
gscs 
gOoc9o 
COCA 
GOCB 


GOCF C 
este? § 


a9D3 
gon4 
@9rs 
a9De 
aeDe 
@ODA 
aQDD 
QOBE 
QOD 
gOR2 

GOEZ 


oF 
52414¢ 


00 
58454847 
VR 


S54484C 


53594840 
xs) 
£943484C 
ag 
632844158 
22 
40444158 


FAGE 2¢ 


CCE4 
OOES 
GOR8 
ZOEO9 
SOEC 
GOED 
ZOre 


OF1 


Gord 
Gers 
gore 
GOFS 
ZOrC 
QOFD 
GAGE 
CAC 
SAR4 
ZAGOS 
BARS 
ZALS 
CAGC 
CAAD 


alg . 


CA11 
@A14 
SA15 
CA16 
@AI9 
@a1a 
GAIT 
GATE 
Ok21 
GA22 


GA25 . 
GALE 4 


ZAL9 


GAZA 5 


@AcD 
CALE 


@AZ1 ¥ 


GAcz2 
CASS 
BASE 
GAZE 
@ASS 


OAs. 


CASD 
GATE 
GA41 
@A42 
GA4S 
@A4E 
CA47 
ZA4E 
GA4C 
ZA4T 
CASO 
QAS1 


82 
494R52 


So5542 


PAGE 


GAS2 
@ASS5 
GASE 
GA57 
QASA 
GASB 
ZASC 
GAED 
DAEL 
@AE5 
GAEE 


CAE? 
CAEQ 
CAEA 
ZAER 
@AEC 


AED 4 


GACY 
GA7E 
@A71 
GA72 
ZA7S 
@A75 
CATE 
@A78 


CA79 & 


CATA 
QA7B 
GAC 
GA7D 
GATE 
ZAT7® 


SAED 
GAGS 
GAS4 
CASS 
@AES 
@A&9 
GAEC 
SAED 
CASE 
@ARY 
GAQ2 
CAQS 
GAQ4 


404441 
2G 

cA 
535441 
2G 

32 
53484044 
22 
40484(44 
2A 

GO 


4E5A 
CB 
SA 


247419 
1A 
27 
CAo22A 


CSEQOA 
eC 
Le 


C9 


T3 ‘LDA’ 
DF ) 
D2 58 
Ts ‘STA’ 
DE g 
DB 5G 
TB ‘SHLI’ 
DE 34 
DE ‘LELD’ 
‘TB 42 
DP g 

; CONDITION CODE TABLE 
rB NZ’ 
DE ) 
Dz eg 
r3 Q 
DE g 
DE NC’ 
i: 16 
DE “0° 
D3 ) 
t2 24 
DE ‘PO’ 
D3 22 
1: ‘PE’ 
DB 4@ 
DE foes 
i: 2 
DP 48 
TB “M 
DP Q 
DE 56 
i: g 


CQ ws oo we we 


COF1: 


we WO WO We We We OS WES 


OFf: 
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TFIS ROUTINE IS USED TO CHECK A GIVEN CFCODE 
AGAINST THE LEGAL OCPCCDES IN THE CPCOTE TABLE 


LHLD ADDS 


Oo 
Pi 'd 
8) 


pear 


ti- 


ee 
ea 
m4 
ea INI Oe OF 
td 
©3 


TFIS ROUTINE CFECKS THE 
IN PASS 
MENTED BY THE CORRECT NUMBER OF EYTES. 


AND PASS 


A 
c<. 


ALSO SET SO THAT AN 


FROCESS TET OPCODE FOR 


sFETCH CHARACTER 
:SET FLAGS 
sSUMP TF TERMINATION CHARACTER 


sRETORN IF MATCH 

yj NEXT STRING 
>CONTINUE SEARCH 
yCLEAR ZERO FLAG 
sINCREMENT ADDRESS 


LEGAL OFCOTES IN BOTH PASS 1 

1 TEE PROGFAM CCUNTER IS INCRE- 

AN ALDDR2SS [S$ 
INDEXED JUMP CAN BE MALE TO 

PASS <2. 


@AQS 
Gage 
GASB 
Zach 
GAA 
SAAS 
CAAG 
GAA” 
CAAA 
ZAAD 
@AAE 
CARL 
CAR4 
CABE 


ZAPRO 
GAPRC 
@ARF 
GAC2 


@ACE 
@ACS 
GACB 
BACC 


CACF 
GAD2 


ZADS 
CATS 
GAD 
GANT 
CAF 
SAFI 


GAR4 
CAE? 
CABA 
SAEED 


@AEF §& 


SATO 
ZA¥F2 
CAFS 
@AFE 
CAFS 
@AFO 
GAFC 
GAFT 
CAFE 
CAFE 
MPF 1 
OBe4 
@BAE 
BEGS 
ZBCA 
SEAR 
S@PSC 
oBer 


217E16 
227410 
115799 
AEC4 
CDE@GA 
CASECB 
a5 
CDEGGA 
CABI@A 
G4 
CUES A 
215A 
ALC 1 
CA119§ 


CDES@CA 
215D08 
CAB4@A 
CTaSCA 


217608 
CARAGA 
as 

CDAQGA 


218FO8 
CAE4OA 


CTEeeoa 
21C4¢8 


CDSaGA 


CAGC2B 
CD4cg9 
C2SEGB 
CECS 


14 


OPCTr: 


we 


we 


we 


R.ABUF 
ALDLS 


SOW PO pS 


@) 

ca rd Cy 
vp ok 
ty 


bude 


QM Pigg 


;GET ADDRESS 


SOPCODE TABLE ADDRESS 
;CEARACTER COUNT | 
;CHECX OPCOLES 

;JUMP IF A PSEUDO-OP 
33 CHARACTER OPCOLES 


$4 CHARACTER COPCCLTES 
Eo1 INSTRUCTIONS 
FYTE INSTRUCTIONS 


;CHECK FOR STAX LDAX 


;CHECK FOR PUSE. FOP INX 
;DCX AND DAD 


35 CHAR CPCOTES 
;ACCUMULATOR INSTRUCTIONS 
;INR DCR.MOV.RST 


s IMMEDIATE INSTRUCTIONS ~ 
yc SYTE INSTRUCTIONS 


34 CREAR OFCOTES 
;JMP CALL.LZI LOA STA 
>LELD,SELU OFCOLES 


*CONDITIONAL INSTRUCTIONS 
sTLIEGAL OFCODE 
;ADD EASE VALUE TO S2ETURN 


3o CHARACTER CPCOLES 
jFETCH FIRST CEARACTER 
;SAVE CEARACTER 
;CONDITIONAL RETURN 


;FOPM CONDITIONAL JUMP 
sCONDITIONAL JUME 
*CONDITIONAL CALL 


;ILLEGAL OPCCIE 
sFOOM CONDIITIONAL CALL 


ee 
CA 
td 
rq 
3 
tJ 
m4 


NSTEUCTION 
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@211 329C12 CNT: STA TEMP sSAVE OPCCODE 
CEECK FCR OFCODE ONLY CONTAINING TEE CORRECT NUMBER CF 
CFARACTERS. TEUS ADDO, SAY. WOULD GIVE AN ERROR 


C 
° 
t 
r 
’ 
r 
’ 
° 
9 


@P14 SE7E MVI A.ABUF ANT OFFH ;LOAD BUFFER ADDRESS 
OBIE a8 ADD B ,ADD LENGTH OF OFCODE 
@EI7 SF MCV E.A 
@818 SF10 MvT A, ASUE 256 
ZB1A CEG AcI g 7GET FIGH ORTER ADDRESS 
Cat Sv MOV D.A 
@B1D 1A LDA D sFETCH CHASACTER AFTER OPCODE 
@PIE 87 CRA A sIT SHCULT BE ZERO 
OB1IF C25E08 JNZ OEFR +CPCCDE FRROR 
ZE22 SAS412 LTA PASI sFETCH PASS INDICATOR 
GE25 BEDD Cent MVI 2,2 
@B27 ES XCEG 
@B28 2AS210 CCN2: LHLI ASPC 7;FETCH PROGP AM CCUNTER 
GB2B 99 DAD 3 sATD IN BYTE COUNT 
®ECC 220212 SELT ASPC sSTORE PC | 
@BeF BR? ORA A s#EICHE PASS? 
g3z¢ Ce RZ yRETURN IF PASS 1 
@PS1 SASC1IC Uda TEMP *SETCH OPCODE 
@BI4 EB XC HG 
GPSS £9 PCHL 

? 
OBIE 2102CC OFRP-: LAI FE ERRC ;SET ERROR ADDRESS 
SPSO ALAS MVI C.3 +LEAVE 3 BYTES TCR PATCE 
BEB C32203 JM OCN1-< 

; | 
OBIE 218218 PSEU: LXI E,ABUT-4 sS2T BUFFER ALTTRESS 
@241 745 MOV A.M sFETCE CRARACTER AFTER OFCCDE 
@B42 BV ORA A ;SHOULL BE A ZERO 
P43 COSEGP JNZ OERR 
OP4E FA9410 LTDA PASI »FETCH PASS INDICATCR 
QB49 BY CRA A 
@B4A CA7AD? JZ PSul 
@B4T CIFSC" uve FSU2 


TEIS ROUTINE IS USEL TO PROCESS LABELS. 

It CHEC™S TO SFE IF A LAEFL IS IN TEE SYMBOL TABLE 
OR NOT. ON RETURN Z-1 INDICATES A MATCH WAS FOUND 
AND E L CONTAIN THE VALUE ASSCCIATELD WITH THE LABEL. 
TET REGISTER NAMES A, B, C, BD. &. F L P AND S ARE 
PRE-TETINED ANI NEEL NOT 3E ENTEPRET 3Y THE USER 

ON PETURN, C=1 INDICATES A LABEL ERROR. 


UN wo we we 20 SO He We we we we 


O@PEA FE41 LAR: CP. “AC ;CHECK FOR LEGAL CEAR 
@ES2 DE RC 

QESS FESR CPI i al ;CHECX FOR ILLEGAL CLAR 
@BS55 SF CMC 7 

@BSE Tea RC ;RETURN IF [ILLEGAL CEAR 
ABS? CDSACE CALL ALPS ;PLACE SYMSOL IN. SUPPER 
RSA 217210 LXI R,ABUF ;SET BUFFER ADDRESS 
AREP 227416 SHLT ADTS >SAVE ALTRESS 


GREG G5 DCR 2 sCPECK IF ONE CHARACTER 
BOREL C274¢G8 JNZ. SLAL , 


> CHYCY IF OREDEFINED REGISTER NAME 


CRE4 24 INR ie ;SET B=1 

CEES. LISS7e | LXI D.RTAS ;REGISTER TABLE ADIRESS 
@BES CDEQGA : CALL COPC »CEECK NAME OF REGISTER 
@BEB C2740E JNZ SLA1 sNOT A PREDEFINED REGISTER 
QFE EF MCV L.A ;OET VALUE FIGE 

GBSF 2ECD MVI F.@ 

OB71i cCoe2¢2 JMP SLA2 

OB74 VILA SLA1° LXI D.SYMT 5;SET SYMPOL TABLE ADERESS 
OS77 22¢5 MVI A LLA ;FETCH LENGTH OF LASSL 
OR79 3295190 STA NCER 

@3s7C Crés¢l CALL cOMs ;CHECK TABLE 

ARTF 4C€ MOV Gan ;oWAP H ANT L 

CREO €5 MOE E,L 

¢Bel €¢ MOV LC 

ZPR2 3” SLA2: STC ,SET CARRY 

GBSS Bas ;CLEAR CARRY 

@Re4 CS RET >RETURN 


PREDEFINE REGISTER VALUES IN THIS TABLE 


Oo we we we 


@Pas 41 Thee a Bs “AC 

GESE OF DB ? 

@BS7 42 DB ‘3B 

GEGE 8 DE g 

BES 42 D3 “¢" 

@RSA Sl TS3 Be 

@EFER 44 ve “D’ 

O@BEC 22 DB 2 

ZBeLr 45 [8 “Et 

PEK @S DE S 

OBEY 48 DB “EH” 

ZBOO C4 U3 4 

@PFO1 4C DE oe 

OEBS2 @5 DB ss 

@297 4T DB * 

@PRO4 GE DR € 

@BOS5 5G DB “Pp” 

ZEBSE GE Dy = 

@PS7 Sz DP “Ss ° 

@BO8 GE DE 6 

ZBOOD Ag [3 g ;END OF TABLE INDICATOR 
9 
>; TEIS ROUTINE SCANS TEE INPUT LINE AND PLACES THE 
» CPCODES AND LABELS IN THE BUFFER. THE SCAN TERMINATES 
: WEEN A CPARACTER OTHER TEAN @-9 OR A-Z IS FOUND. 
; 2 

OESA CESH ALPS: MVI 2.@ »SET COUNT 

O89C le ALF1L: SsTAX io, ;STORE CEARACTER IN EDFFER 

@BOT G4 INR 8 > INCREMENT COUNT 

OPOE 7& MOV | ee sFETCE CCUNT 

ZEOF FEGRB Crt Ls ;MAXIMUM BUFFER SIZE 

GEA1 12 | RNC sRATURN: Le BUSPER sTLLer 

O8EAe 12 INX D sINCREMENT BUFFTP 

OBAS 22 IMZX sf sINCREMENT INPUT PCINTER 

GPA4 229F12 SHLI PNT ;SAVE LINE POINTER 

ZBA? 7% MOV A.M »FETCE CEARACTER 7 


S@BAR FRSC CPI go ;CHECK FOR LEGAL CHARACTERS 


GRAS 


@BAS & 


AEAD 
SERA 
@B22 
APRS 
@BBS5 
@EBS 


?EBS 
@BEC 
CRBY 
GEC 
GERECS 
g3ceé 
@Pco 
@BCA 
CECE 
QEDS 
gBti 
@BD2 
SBD4 
C20? 
@EDO 


aBrec 
QEDE 
OBE! 
ORES 
OBEE 
@3z9 
SEEC 
@RET 
QEri 
OBF2 
OBFE 


@PFS 
ZBrA 
@EBFL 
Gare 
BCO1 
@C@2 
ece4 
SCO? 
Cea 
ZcaP 
ZCZE 


¢ci1l 
ZC135 
@cié 
8C19 
3C13 
ecie 


CLSgee 
212820 
229912 


CA7EAC 


FF23 
CAEOCR 
FE2D 
CZFagF 
329818 
SASPELIE 
FE@2 
CAAECC 
SEA2 
329312 
CErees 


CZz4D0C 


FECT 
C2S5D8C 
11262¢ 
OES 
ec 
229E108 


[E> pe we wo we wo 


NXT2: 


ASC2: 


CHECK 
sc: 


Oo, 
ALP 
“AC 


ve 4 
ALP1L 


TPIS ROUTINE IS USED 
TC FETCE THE VALUE CF THE CPERAND FITLDP 
TRE VALUE OF TEE OPERAND 
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TO SCAN THERCUGE THE INPUT LINE 
ON RETURN 
IS CONTAINED IN BEG S a L 
sGET FIRST APGUMENT 
sGFT A ZERO 

sINITTALIZE OFERAND 
NITIALIZE OFFRAND 


I INDICATOR 
FETCH SCAN POINTER 


° 
bf 
e 
? 


>CLIEAR BUFFER 

;ZERC SIGN INTICATCR 
yINCREMENT POINTER 
+FETCH NEXT CEARACTER 
: 


;JUMP IF CR OR ELAN? 
;*ITELT SEPARATOR 


sCHFCK FOR PLUS 
;CEECK FOR MINUS 


;FETCH OFERAND INDICATOR 
»CHECK FCR TWO OPERATCKES 
sSYNTAX ERROR 


sSET INDICATOR 


>SAVE CHARACTER 

7GET INDICATOR 

;CHECY FOR TWO OPERANDS 
sSYNTAX ERROR 


;LC EXPRESSION 


s INCREMENT POINTER 
,SAVE POINTER 
>FETCH LOCATICN CCUNTEFR 


;CEECK FOR SINGLE QUCTE 
;JUMP IF NOT QUCTS 

;GET A ZERO 

;CHARACTFR CCUNT 

;BUMF POINTER 


CALL SBLK 
LXI q. 
Sale OP RD 
INR sf 
Sele OPRI =] 
LFLD PNTR 
DCX of 
CALL Z3UF 
STA SIGN 
INX E 
MCV A.M 
CPI ee 
JC SEND 
CPI ns 
JZ — SEND 
FOR OPERATORS 
CPI Sail 
JZ ASC1 
CPI ae, 
JNZ ASC2 
STA SIGN 
LIA OPRI 
EPI 2 

JZ ERRS 
MVI A.2 
STA OPRI 
JMP NXT2 
MOV CA 
LDA OPRI 
ORA AD 
JZ FRRS 
MOV A,C 
CPT ‘=. 
JINZ ASC2 
INX H 
SETD ONTR 
LELT ASPC 
JMP AVAL 
OF ASCII CHARACTERS 
Cel 27H 
JINZ ASCS 
LXT r.@ 
MVI C,3 
INX _&# 
SaLD PNTR 


;oAVE 
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OC1F 7E MOT AM ;FETCH NEXT CHATACTER 
aC2a FECL CPI ASCR sIS IT A CE? 
@C22 CACBRAC 32 TRRA SAPGUMENT ERROR 
QC25 FE2? CPI 27H 31S IT QUOTE 
@C27 C2340C INZ SSTR 
@C2A 23 INX H ;INCREMENT POINTER 
A@c2B 229619 SEL? PNTR ;SAVE 
Qc2E 7E MOT ALM ;FETCH NEXT CEAR 
@c2? Fre? CPI 278 ;CHECK FOR 2 QUCTES IN A RCW 
GC31 C24FSc INZ AVAL+1 ;TEBMINAL CUOTE 
ecz4 “PT SSTR DCR C ;CHECY COUNT 
eczS CACPAC 52 ERRA STCO MANY CHARACTERS 
acze 52 MOY DE | 
eczo SF MOV EA ;SET CHARACTER IN BUFFER 
@CZA CZLECC IMP ASC4 
@c2D FEZ ASCS CPI oO" SCHFCY FOR NUMFRIC 
@C3F TACBZC J ZRPA SILIEGAL CEARACTER 
@C42 FRZA Cpl ie ees! 
gc44 D2Eecec INC ALAB 
eca? creaec CALL NOMS ;GET NUMERIC VALUZ 
@C4A DACBEC Ic ERRA ;ARGUMENT ERROR 
@c4r 23 AVAL:  XCEG: | | 
@C4E 249919 LELD OPRD ;FETCH CPERAND 
@cf1 af XPA A ;GET A ZERO 
aCS2 329B12 STA OPRI sSTCR IN OPERANT INDICATOR 
@c&5 2a9sia ED) SIGN sGFT SIGN INDICATOP 
@CSa2 37 OPA A ;SET FLAGS 
@cso c2eézac INZ ASU2 
acsc 19 Dad D SFORM RESULT 
@cSP 220912 ASC?:  SELI OPRE SSAVE RESULT 
2CEZ CECEGE | JME NXTI 
@céz 7D ASUB- MOV AL 
GCE4 93 SUB r 
3Cé5 6F MOY a 
@ceé 7C MOV ALE 
aCe? 9A SPE D 
QC&B 67 MOV HA 
@CES CZSLAC JMP ASC? 
C&C CDS@ZB “‘ALAE: CALL SLAB 
BCEF CA4DOC 32 AVAL | 
ac72 TACBIC IC TRRA ILLEGAL SYMBOL 
@c75 CZEQSC IMP ERRU SUNDEFINED SYMEOL 
? 
; GET HERE WHEN TERMINATING CHARACTER IS FCUND. 
; CHECXY PCR LEALING FIELD SEPARATOR. 
] 
@C78 ZAQB12 8 9SEND LDA OPRI ;FETCE OPERAND INDICATCR 
aC7B BY? ORA A SSET FLAGS | 
a@c?C C2AEGC INZ ERPS SSYNTAX ERROR 
@c7F 249912 LELI OPRD 
ace2 7¢ SENt: MOT A.E SGET HIGH ORIER BYTE 
@cSZ 119012 Lyi D,TPMP jGET ADDRESS 
@cae 37 CRA A ;SET FLAGS 
ace? co RET 


GET A NUMEPTC VALUE WEICH IS SITHER REXAPECIMAL OR 
DFCIMAL ON PETURN. CARRY SET INDICATES AN ERROR 


Oe Se We we 


C2482 


2 Choe 


2122 
S2P1168 
C9 


SESS 
S2B112 


7 212008 


C 2e22C 


O SESS 


CSB@AC 


E SE5€é 


CTATAC 


grat 
e2P11¢ 
CEFVCE 


zR41 


D CSEOLC 


NUMS: CALL ALPS +GET NUMERIC 
DCz D 
LDAX T ;GET LAST CHARACTER 
LXI B.ABUF ;SET FUFFER ADDRESS 
CPI ° 91S IT EEXALECIMAL? 
JZ NUM2 
CPI eo ;IS IT DECIMAL 
JINZ NUM! 
XRA A sGET A ZERO 
STAX D ;CLEAR D FROM B''FFER 
NUM1: CALL ATEC »CONVERT TECIMAL VALUE 
RET 
NUM2: APRA A ;GET A ZERO 
STAX D ;CLEAR BF FROM BUFFER 
JME AFEX 


4 ~we we 


PROCESS REGISTER eens 


PRR: “YT A,” ;GET INDICATOR 
LXI q ;GET A 2 
STA OBUF ,SET IN OUTPUT FUFFE2 
RET 
>PRCCESS SYNTAX FRROR 
SPRS: MvI AS. ;GET INDICATOR 
STA OBUF STORE IN CUTPOT BUIFER 
LXI E,@ 
JMP SEN1 
>PROCESS UNDEFINED SYMBOL SEPRCR 
PPE: Mv A 7GET INDICATOR 
JMP FRRS+z 
»,PPOCESS VALUE ERROR 
ERRYV: MVI A.V" sGET INDICATOR 
JMP ERRR-2 
»PPOCESS MISSING LABEL ERROR 
SREM: MVT A.M” ;GET INDICATCR 
STA OBUF ;STORE IN QUTPUT BUFFER 
JMP AOTl1 ;LISPLAY ERROR ANT SETURN- 
>PROCESS ARGUMENT ERROR 
ERRA: “VT A ‘A’ ;GET INDICATOR 
IMP ERRS z 


» PROCESS OPCODF ERROR 
> STORE ZF 3YTES OF ZERO IN OBJECT COTE TO FRCVITES 
> FO? A PATCH. 


ERBO: MYI A.°O’  $GET INDICATOR 
STA OBUF SSTCRE IN OUTPUT BUFFER 
LDA PASI SFETCE PASS INDICATOR 
ORA A ;WHICE PASS 
RZ ;RETURN IF PASS! 
MYT c,3 SNEED 3 RYTES 
FRO1: XEA A ;GET A ZERO 
CALL  astTo ;EUT IN LISTING AND “EMORY 
DCR C 
INZ FRO1 
RET 
; PROCESS LABEL FRROB 
ZPRL: MVI A,°L’  $GET INDICATOR 
IMP TRRO+2 
SPROCESS INPLICATF LAPTL ERROR 
ERRD: MVI A,°D’  j$GET ERROR INDICATOR 


SCEC 
CEFF 
8CF2 


@CFS 
8CFS 
gCFO 
eCFC 
OCFE 
oT2t 
aDSe 
elas 
O0NG4 
2T¢5 
GD88 
@TZ9 
CDA 
edez 
ata 
Odili 
Cri2 
gD1e 
@v1s 
2017 
@D182 
@T19 
@T1C 
ODiD 
CDLF 
@N22 
@V2 
@T24 
GD25 
@T2ZE 


¢T27 


ZDzZS8 
@LD2A 
@T2k 
@D2D 
2038 
@D3S 
GDSE 


etc? 
ODSA 
@T3c 
2DED 
@USE 
@DSF 
8D48 
@T41 
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0045 


S2P119 
CDEAZE 
CoSaO7 
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tr ee we we we 


Bl: 


td 
| 


we we we 


CLR2: 
CLEL: 


REAK: 


STA 
CALL 
JMP 


Lki 
MVI 
XRA 
MOV 
MOV 
INX 
MOV 
MOV 
INX 
MCV 
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;STORE IN OCUTPUT BUFFER 
+DISPLAY ERROR 
>PROCESS OPCOLE 


TEIS ROUTINE SETS CR CLEARS BREAKPOINTS 


yCEECK FOR AN ARG 


;IF NO ARG, GO CLEAR BREAKFOINTS 
sELSE GET NUMBER CF BREAKFOINTS 
7AND ADDR OF TABLE 

7GET HI BYTE OF ENTRY 


sGET LO BYTE CF ENTRY 
;CEECXY FOR EMPTY ENTRY 
;BRANCH IF EMETY 

,ELSE GO ON TO NEXT ENTRY 


sBUMP COUNT 
;AND TRY AGAIN 
s00PS, NO ROOM 


SGET ADDRESS 


,IN DS 
*CHECK FOR ADDR 11D 


;O0PS. TOO LOW 
;SAVE ALTRESS 


;PICKY UP INSTRUCTICH 
;SAVE I? 

;REPLACE IT WITH A 
;RESTART INSTRUCTION 
sSET UP LO MEMORY 
sWITH A JUMP TO BRK? 


,THEN RETUON 


ALL PREAXPOINTS 


7GET TABLE ATTRESS 

7GET NUMBER CF PPEAKPOINTS 
3GET A ZERO 

sGET HI-BYTE OF ENTRY 


7GET LO-FYTE OF ENTEY 


;GET INST BYTE 


FAGE SS 


@T44 23 INX H 

@D45 7A MOV A.D sWAS THIS A NULL ENTRY 
@D4E Fe ORA E 

@D47 CA4COD JZ CL2 >BRANCH IF IT WAS 

@T4A 78 MOV A B 

Q@D4B 12 STAX D y2LSE. PLUG INST BACK IN 
@D4C @D CL2: DCR- C ;RUMP COMNT 

@T4P C23cer JINZ CLBL 7GOQ TO NEXT ONE 

DEG C9 RET ,RETURN WEEN DONE 


COME HERE WEEN WE HIT A BREAXPOINT 


too we we we 


CTSi 222912 nee SELD HOLD & ;SAVE F I, 
q 


@pS4 Fl POP ‘$GET PC 
OPS= 2B Dex F SADJUST IT 
CTSE 222a1¢ SHLIT § HOLT+1? ;SAVE IT 
@DS9 FS PUSE  PSw SSAVE FLAGS 
@ISA 1 POP. sdaAR ;GET THEM INTO BL 
@DEB 220018 SHLE § HOLD ;NOW STORE THEM FOR USER 
eDSE 2100¢¢ pe H,@ 
@Té1 z9 Tar SP § 3GET STACE POINTER 
@DE2 319812 UXT SP,HOLD-@ ;SFT NEW SP 
ates ES PUSE ;SAVE OLD SP 
CLES D5 PUSH 6D ;SAVE DE 
ere? C5 PUSH B ;SAVE BC 
ADER 2F CMA SCOMPLEMENT ACC 
QDEO D3FF OUT OTTE ;DISPLAY IT IN THE LIGHTS 
@TSB 213112 LXI | SP AREA+19& ;SET SP AGAIN 
ODEE 2AGA12 LELD HOLD+19 ;GET 2C 
2071 EB XCEG ;INTO D.E 
@n72 219C12 LYt H.BRT  j;GET ADDR CF TABLE 
@D75 geoe MvT B.NBR AND NUMBER OF ONTRIFS 
OD77 7E BL1° MCY AM SGET AN ENTRY FROM TEE TABLE 
2D72 23 INX H 
ar79 BA CMD D ;DOZS IT MATCE 
@D7A C2e2eL INZ BL2 ;BRANCH IF NOT 
GD7D 72 Mov ALM SELSE GET NEXT BYTE 
GD°F BB CMP r ;CHECK IT 
OD?7F CASB@D i RL ;IT MATCEFS! 
@Da2 22 BI2- INX H ;BUMP AROUND THIS ENTRY 
2D83 23 INX H 
ODE4 95 DCP B ;BUMP COUNT 
@T95 CAe1a4 JZ WHAT ;NOT IN OUR TABLE! 
@pes C3772D IMP BL1 
y 
@TSB 23 BL2: INX g 
@pec 7F MOV ALM ;GET INSTR BYTE 
epan 12 STAX OD ;PUT IT BACK 
QTAE AF XFA A ;CLEAR ENTRY IN TABLE 
OTaF 23 DCX H 
2T9o 77 MOV M A 
QD91 2B ep. z 
ape2 77 MOV M.A 
@TO2 CDZAZ1 CALL «© CRLF ;RESTORE THE CARRIAGE 
@D96 ZAGE12 : LIA HOLD-11 3GET HI-3YTE CF PC 
gNee cDé7e2 CALL OUT STYPE IT 
ATSC ZAZA1@ LTA HOLT-18 ;GET LO-3YTE OF FC 


JDOF CDE7Z2 CALL FCUT SP TEP TT 
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2DA2 21A8CD , LXI H BMES j TELL USER VERT 7 1s 
ZDAS CEE7O4 JMP MESS >GO BAC” TO COMMAND LEVEL 
’ 
DAB 2042524541 EMES- DB ° BRE&k’.12 
: | 
> THIS ROUTINE PROCEEDS FROM A BREAKPOINT 
: , 
@DAF SA7TF1IS PeOc- LPA . -ABUF ;CHECK FOR ARG 
AUB2 87 CRA A 
ODES CAECSD , Jz pt 7JMP IF NO ARG 
?LEE 2ASALS LELD EBUF en GET ARG 
DFO 222A1d seh. FOLD*t1@ ;PLTS I? INTO PC SLOT 
ZUBC 31¢219 oe ae Lil SP; HOLD s ET SF TO. POINT AT .226°S 
ODEF Fi POP PSW ;RESTCRE PSW 
OPCS Ci POP B ;RESTORE B.C 
@02C1 Ti PCP cE ;PESTORE g 
8DC2] El FOF a 3GET CLD SP 
@Tcz F9 SP Eb sS=SSTORE IT 
G@0C4 2A2A19 LELD © HOLD}1¢@ ;GET PC 
@DC7 E5 . PUSe is ;FUT IT ON STACK 
ADCR 2AGa1A LELT HOL@e RESTORE FL 


@DCEB C9 a | ;AND PROCEED 


10@2 cea 1¢ 22h 


DFFINE PRFAKPOINT YEGION 


@gze = NBR EQU og SNUMBER OF BREAKPOINTS 
1908 FOLT: OS 12 SRFGISTFR FOLD AFEA 
1¢6¢ ~BRT: TS § NBR jBPREAKPOINT TABLE 
9 
; FILE ARTA PARAMETERS 
eeee = MAXTIL ZOU 6 ;MAX # OF FILES 
@205 = NMLEN = -FOT 5 ;NAME LENGTE 
aged = FEIEN =CU NMLEN#S ;DIRECTORY ENTRY LENGTE 
1024 TILF2: IS NMLEN | 
1¢29 ROFE- Og 2 
1223 EFCFP- rs. 2 
1g20 MAXL: DS 4 | 
1931 FILTER: Ds /WAXFIL-1°*FELEN 
1072 INSP: TS 2 ;IMSERT LINE POSITION 
1872 = DELP FOU INSP ;DEIETE LINE POSITION 
@2or = ASCR EOU . 12 SASCII CARRIAGE RETURN VALUE 
1074 FCON: DS 2 | os 
1074 = ADDS fav HCON SFIND ADDRESS 
1a76 FBUF: oS NMLEN  $FILE NAME BUFFER 
1273 FOFAD-: DS” 2 ;FPEE ADDRESS IN DI7ECTORY 
1077 FET: TS 1 SFREE ENTRY FOUNT FLAG 
1479 = FOCNT FOU TEF SOUTPUT COUNTEP 
107? ARUF- DS 12 SASCII BUFFER 
108A REQF- IS 4 SBINARY BUFFFR 
1@at SCNT: —S - 1 | | 
1gaF TCNT: TS 1 DUMP ROUTINE COUNTER © 
1999 TAPA> OD 2 SYMBOL TABLE END ADDRESS 
1292 ASEC: DS 2 ASSE’BLEP PROGRAM COUNTER 
1 PASS INTICATCR 


1794 PAST: Cs 


1895 
1896 
1298 
1099 
1098 
189C 
1372 
18°F 
1Z90 
205 
1Z9OF 
1@P1 
1¢C1 
12C6 
1119 
111A 


CO83 
C22 
GOC2 
fSC2 
IOS 1 


GOTT. 


111A 


Hou tt 


a 


; TELETYPE PARAMETERS 


NCH: DS 
PNTR: DS 
SIEN; DS 
CPRD: Is 
OPFI: Bs 
TEMP: Ts 
APNT - QU 
AEFR ROU 
CINTI: Ts 
LLAE EOvU 
AREA: DS 
ORU?: DS 
DS 
~ JROF- rs 
LPOS: DS 
SYMT | EOQU 
; 
’ =o 
TTS = FOU. 
268 EQE 
TTO E0U 
TTYDA Eot 
TTYTR ECU 
SWC EOQU 


END 


Oy 0B 


CA 


wre (DIHhiArPinnM 


7 
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; LENGTH OF STRING FOR COMFARE 
sLINE POINTER STORAGE 

;SICN STORAGE FOR SCAN 
;OPERAND STCRAGE 

;OPERAND FOUND INDICADCR 


;ASSEMELE LINE PCINTER 
;ASSEMBLER ERROR FRIANT SWITCH 
;CUTPUT AITITRESS 

;LENGTH OF LAEELS 


;OUTPUT BUFFER AEA 


~« 


;TELETYPE LINE POSITION 
SSTART OF SYMBOL TABLE 


sTTY STATUS PORT 


STTY DATA IN\PORT 


ITTY DATA OUT PORT 
STTY DATA AVAILABLE BIT 


“Sgq"e XMTR READY BIT 


;SHITCE REGISTER 


